X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Ffound.mc;h=7c404f094a204470cc5e0d4d3cecd2f83b7b6768;hb=3c9b21ff1f3c910f1716f0932723dc12c4af62c8;hp=20e808f0da59129c74ca6f636fe23553e17d6f0f;hpb=03c3919c5236b5518e6ae23ca80634d25c608c57;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc index 20e808f..7c404f0 100644 --- a/web/htdocs/details/found.mc +++ b/web/htdocs/details/found.mc @@ -1,4 +1,4 @@ -%# $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) = @_; @@ -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