X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffound.mc;h=7c404f094a204470cc5e0d4d3cecd2f83b7b6768;hb=3c9b21ff1f3c910f1716f0932723dc12c4af62c8;hp=5c8993f36ef9bee981c279962e81ea622f339fe4;hpb=a54f6e8f9d1fe1d12beb7e2a0ad30d06047bcc10;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc index 5c8993f..7c404f0 100644 --- a/web/htdocs/details/found.mc +++ b/web/htdocs/details/found.mc @@ -1,4 +1,4 @@ -%# $Id: found.mc,v 1.18 2006-11-14 16:23:11 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) = @_; @@ -77,10 +77,10 @@ my $first = $skip+1; my $last = $first+$count-1; $last = $n if $last > $n; -
+

-

+

% if ($n == 0) { No matches @@ -110,8 +110,7 @@ print_navlink(\%params, $last < $n, "Next", $skip+$count); % 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"); @@ -133,7 +132,8 @@ push @ids, $id; Test " title="Edit this target's record">Edit XML