ui-lib conversion -> help/index.cgi

This commit is contained in:
Nawawi Jamili
2013-12-03 17:21:58 +08:00
parent 850f5673bc
commit be67439d11

View File

@@ -4,26 +4,25 @@
require './help-lib.pl';
&ui_print_header(undef, $text{'index_title'}, "", "intro", 0, 1);
print "<form action=search.cgi>\n";
print "<table border>\n";
print "<tr $tb> <td><b>$text{'index_header'}</b></td> </tr>\n";
print "<tr $cb> <td><table>\n";
print "<tr> <td><b>$text{'index_terms'}</b></td>\n";
print "<td><input name=terms size=50></td> </tr>\n";
print "<tr> <td valign=top><b>$text{'index_mods'}</b></td>\n";
print "<td><input type=radio name=all value=1 checked> $text{'index_all'}\n";
print "&nbsp;<input type=radio name=all value=0> $text{'index_sel'}<br>\n";
print "&nbsp;&nbsp;&nbsp;<select name=mods size=5 multiple>\n";
my @list_modules;
foreach $m (&list_modules()) {
printf "<option value=%s>%s</option>\n",
$m->[0], $m->[1]->{'desc'};
}
print "</select></td> </tr>\n";
print "<tr> <td colspan=2 align=right>",
"<input type=reset value=\"$text{'index_reset'}\">\n",
"<input type=submit value=\"$text{'index_search'}\"></td> </tr>\n";
print "</table></td></tr></table></form>\n";
push(@list_modules, [ $m->[0], $m->[1]->{'desc'} ]);
}
print &ui_form_start("search.cgi", "post");
print &ui_table_start($text{'index_header'}, undef, 2);
print &ui_table_row($text{'index_terms'}, &ui_textbox("terms", undef, 50));
print &ui_table_row($text{'index_mods'},
&ui_radio("all", 1,
[ [ 1, $text{'index_all'} ],
[ 0, $text{'index_sel'} ] ]));
print &ui_table_row("&nbsp;",
&ui_select("mods", undef, \@list_modules, 5, 1) );
print &ui_table_row("&nbsp;",
&ui_submit($text{'index_search'})."&nbsp;".&ui_reset($text{'index_reset'}));
print ui_table_end();
print &ui_form_end();
&ui_print_footer("/", $text{'index'});