62 lines
1.9 KiB
Plaintext
62 lines
1.9 KiB
Plaintext
|
<html>
|
||
|
|
<head><title>Search Form</title>
|
||
|
|
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||
|
|
</head>
|
||
|
|
<body marginwidth='0' marginheight='0'>
|
||
|
|
<form target='res' action='search.bml' method='get'>
|
||
|
|
<input type='hidden' name='lang' value='<?_code $FORM{'lang'} _code?>'>
|
||
|
|
<input type='hidden' name='search' value='sev'>
|
||
|
|
|
||
|
|
[<a href="./" target='_top'><-- Back</a>]
|
||
|
|
<?_code
|
||
|
|
my $lang = $FORM{'lang'};
|
||
|
|
my $l = LJ::Lang::get_lang($lang);
|
||
|
|
BML::finish() unless $l;
|
||
|
|
return "<b>" . ($l ? $l->{'lnname'} : "Invalid language") . "</b>";
|
||
|
|
_code?>
|
||
|
|
|
||
|
|
<p>By Severity: (<a href='help-severity.bml' target='main'>help</a>)<br /><select name='stale'>
|
||
|
|
<option value="0">0</option>
|
||
|
|
<option value="0+">0+</option>
|
||
|
|
<option value="1">1</option>
|
||
|
|
<option value="1+" selected='selected'>1+</option>
|
||
|
|
<option value="2">2</option>
|
||
|
|
<option value="2+">2+</option>
|
||
|
|
<option value="3">3</option>
|
||
|
|
<option value="3+">3+</option>
|
||
|
|
<option value="4">4</option>
|
||
|
|
</select><input type='submit' value='Search'/>
|
||
|
|
</p>
|
||
|
|
</form>
|
||
|
|
|
||
|
|
<form target='res' action='search.bml' method='get'>
|
||
|
|
<input type='hidden' name='lang' value='<?_code $FORM{'lang'} _code?>'>
|
||
|
|
<input type='hidden' name='search' value='txt'>
|
||
|
|
|
||
|
|
<p>Search
|
||
|
|
<?_code
|
||
|
|
my $ret;
|
||
|
|
my $l = LJ::Lang::get_lang($FORM{'lang'});
|
||
|
|
my $pl = LJ::Lang::get_lang_id($l->{'parentlnid'});
|
||
|
|
my @opt = ("src" => $l->{'lnname'});
|
||
|
|
if ($pl) { push @opt, "parent", $pl->{'lnname'} };
|
||
|
|
push @opt, "code", "Item Code";
|
||
|
|
$ret .= LJ::html_select({ 'name' => 'searchwhat' },
|
||
|
|
@opt);
|
||
|
|
$ret .= "<br />Area: ";
|
||
|
|
$ret .= LJ::html_select({ 'name' => 'searchdomain' },
|
||
|
|
0, "(all)",
|
||
|
|
map { $_->{'dmid'}, $_->{'uniq'} }
|
||
|
|
sort { $a->{'dmid'} <=> $b->{'dmid'} } LJ::Lang::get_domains());
|
||
|
|
return $ret;
|
||
|
|
_code?>
|
||
|
|
<br />Text: <input name='searchtext' size='15'><input type='submit' value='Search'>
|
||
|
|
</p>
|
||
|
|
|
||
|
|
|
||
|
|
</form>
|
||
|
|
|
||
|
|
|
||
|
|
</body>
|
||
|
|
</html>
|