start searching at the current $hash value

Signed-off-by: Kay Sievers <kay.sievers@suse.de>
This commit is contained in:
Kay Sievers 2005-09-17 03:00:21 +02:00
parent bd4d3c92d7
commit c39e47d98a

View File

@ -297,11 +297,19 @@ EOF
if (!defined $searchtext) { if (!defined $searchtext) {
$searchtext = ""; $searchtext = "";
} }
my $search_hash;
if (defined $hash) {
$search_hash = $hash;
} else {
$search_hash = "HEAD";
}
$cgi->param("a", "search"); $cgi->param("a", "search");
$cgi->param("h", $search_hash);
print $cgi->startform(-method => "get", -action => "$my_uri") . print $cgi->startform(-method => "get", -action => "$my_uri") .
"<div class=\"search\">\n" . "<div class=\"search\">\n" .
$cgi->hidden(-name => "p") . "\n" . $cgi->hidden(-name => "p") . "\n" .
$cgi->hidden(-name => "a") . "\n" . $cgi->hidden(-name => "a") . "\n" .
$cgi->hidden(-name => "h") . "\n" .
$cgi->textfield(-name => "s", -value => $searchtext) . "\n" . $cgi->textfield(-name => "s", -value => $searchtext) . "\n" .
"</div>" . "</div>" .
$cgi->end_form() . "\n"; $cgi->end_form() . "\n";