<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
<%once>
sub print_navlink {
my($params, $cond, $caption, $skip) = @_;
<input type="text" name="_query" size="60" value="<% xml_encode($query) %>"/>
<input type="submit" name="_search" value="Search"/>
<input type="text" name="_query" size="60" value="<% xml_encode($query) %>"/>
<input type="submit" name="_search" value="Search"/>
my $title = $xc->find("e:databaseInfo/e:title");
my $author = $xc->find("e:databaseInfo/e:author");
my $host = $xc->find("e:serverInfo/e:host");
my $title = $xc->find("e:databaseInfo/e:title");
my $author = $xc->find("e:databaseInfo/e:author");
my $host = $xc->find("e:serverInfo/e:host");