Use modern UI functions properly

This commit is contained in:
Jamie Cameron 2019-02-24 20:33:29 -08:00
parent 4204be4dd7
commit 2bf41b2709
2 changed files with 15 additions and 19 deletions

View File

@ -11,18 +11,15 @@ foreach $m (&list_modules()) {
print &ui_form_start("search.cgi", "post"); print &ui_form_start("search.cgi", "post");
print &ui_table_start($text{'index_header'}, undef, 2); print &ui_table_start($text{'index_header'}, undef, 2);
print &ui_table_row($text{'index_terms'}, &ui_textbox("terms", undef, 50), undef, [ "valign=middle","valign=middle" ]); print &ui_table_row($text{'index_terms'},
&ui_textbox("terms", undef, 50));
print &ui_table_row($text{'index_mods'}, print &ui_table_row($text{'index_mods'},
&ui_radio("all", 1, &ui_radio("all", 1,
[ [ 1, $text{'index_all'} ], [ [ 1, $text{'index_all'} ],
[ 0, $text{'index_sel'} ] ]), undef, [ "valign=middle","valign=middle" ]); [ 0, $text{'index_sel'} ] ])."<br>\n".
print &ui_table_row("&nbsp;", &ui_select("mods", undef, \@list_modules, 5, 1));
&ui_select("mods", undef, \@list_modules, 5, 1), undef, [ "valign=top" ]);
print &ui_table_row("&nbsp;",
&ui_submit($text{'index_search'})."&nbsp;".&ui_reset($text{'index_reset'}));
print ui_table_end(); print ui_table_end();
print &ui_form_end([ [ undef, $text{'index_search'} ] ]);
print &ui_form_end();
&ui_print_footer("/", $text{'index'}); &ui_print_footer("/", $text{'index'});

View File

@ -48,18 +48,17 @@ foreach $m (@mods) {
# Display the results # Display the results
if (@match) { if (@match) {
print "<b>",&text('search_results', "<tt>$terms</tt>"),"</b><p>\n"; print "<b>",&text('search_results', "<tt>$terms</tt>"),"</b><p>\n";
print "<table border width=100%>\n"; print &ui_columns_start([ $text{'search_page'},
print "<tr $tb> <td><b>$text{'search_page'}</b></td> ", $text{'search_mod'},
"<td><b>$text{'search_mod'}</b></td> ", $text{'search_line'} ]);
"<td><b>$text{'search_line'}</b></td> </tr>\n";
foreach $m (@match) { foreach $m (@match) {
print "<tr $cb>\n"; print &ui_columns_row([
print "<td>",&hlink($m->[3], $m->[2], $m->[0]),"</td>\n"; &hlink($m->[3], $m->[2], $m->[0]),
print "<td>$m->[1]</td>\n"; $m->[1],
print "<td>$m->[4]</td>\n"; $m->[4],
print "</tr>\n"; ]);
} }
print "</table><p>\n"; print &ui_columns_end();
} }
else { else {
print "<p><b>$text{'search_none'}</b> <p>\n"; print "<p><b>$text{'search_none'}</b> <p>\n";