-%# $Id: found.mc,v 1.19 2006-11-16 12:17:02 mike Exp $
+%# $Id: found.mc,v 1.21 2006-11-29 18:21:15 mike Exp $
<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
% my @ids;
% foreach my $i ($first .. $last) {
<%perl>
-my $rec = $rs->record($i-1);
-my $xc = irspy_xpath_context($rec);
+my $xc = irspy_xpath_context($rs->record($i-1));
my $title = $xc->find("e:databaseInfo/e:title");
my $author = $xc->find("e:databaseInfo/e:author");
my $host = $xc->find("e:serverInfo/e:host");
<td>
<a href="<% xml_encode("/check.html?id=" . uri_escape($id))
%>" title="Test this target">Test</a
- > <a href="<% xml_encode("/edit.html?id=" . uri_escape($id))
+ > <a href="<% xml_encode("/edit.html?op=edit&id=" .
+ uri_escape($id))
%>" title="Edit this target's record">Edit</a
> <a href="<% xml_encode("/raw.html?id=" . uri_escape($id))
%>" title="Raw XML record">XML</a>