Edit: /usr/share/usermin/mysql/search_form.cgi (1412B)
#!/usr/bin/perl
# Show form for searching a table, using multiple fields
if (-r 'mysql-lib.pl') {
require './mysql-lib.pl';
}
else {
require './postgresql-lib.pl';
}
&ReadParse();
&can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
@str = &table_structure($in{'db'}, $in{'table'});
$desc = &text('table_header', "
$in{'table'}", "
$in{'db'}");
&ui_print_header($desc, $text{'adv_title'}, "");
print &ui_form_start("view_table.cgi", "post");
print &ui_hidden("db", $in{'db'});
print &ui_hidden("table", $in{'table'});
print &ui_radio("and", 1, [ [ 0, $text{'adv_or'} ],
[ 1, $text{'adv_and'} ] ]),"
\n";
print "
\n";
for($i=0; $i<10; $i++) {
print "\n";
print "| ",&ui_select("field_$i", "",
[ [ "", " " ],
map { [ $_->{'field'}, $_->{'field'} ] } @str ])," | \n";
print "",&ui_select("match_$i", 0,
[ map { [ $_, $text{'view_match'.$_} ] } (0.. 5) ])," | \n";
print "",&ui_textbox("for_$i", undef, 30)," | \n";
print "
\n";
}
print "
\n";
print &ui_form_end([ [ "advanced", $text{'adv_ok'} ] ]);
if ($access{'edonly'}) {
&ui_print_footer("edit_dbase.cgi?db=$in{'db'}",$text{'dbase_return'},
"", $text{'index_return'});
}
else {
&ui_print_footer("edit_table.cgi?db=$in{'db'}&table=$in{'table'}",
$text{'table_return'},
"edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
"", $text{'index_return'});
}