#!/usr/local/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'; } require './view-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 "
",&ui_select("field_$i", "", [ [ "", " " ], map { [ $_->{'field'}, $_->{'field'} ] } @str ])," | \n"; print "",&ui_select("match_$i", 0, [ map { [ $_, $text{'view_match'.$_} ] } (0.. 3) ])," | \n"; print "",&ui_textbox("for_$i", undef, 30)," | \n"; print "