-%# $Id: found.mc,v 1.18 2006-11-14 16:23:11 mike Exp $
+%# $Id: found.mc,v 1.20 2006-11-16 17:10:30 mike Exp $
<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
my $last = $first+$count-1;
$last = $n if $last > $n;
</%perl>
- <form method="get" action="">
+ <form method="get" action=""><p>
<input type="text" name="_query" size="60" value="<% xml_encode($query) %>"/>
<input type="submit" name="_search" value="Search"/>
- </form>
+ </p></form>
<p>
% if ($n == 0) {
No matches
% 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");