mysql/search_form.cgi

   1 #!/usr/local/bin/perl
   2 # Show form for searching a table, using multiple fields
   3
   4 if (-r 'mysql-lib.pl') {
   5         require './mysql-lib.pl';
   6         }
   7 else {
   8         require './postgresql-lib.pl';
   9         }
  10 require './view-lib.pl';
  11 &ReadParse();
  12 &can_edit_db($in{'db'}) || &error($text{'dbase_ecannot'});
  13 @str = &table_structure($in{'db'}, $in{'table'});
  14
  15 $desc = &text('table_header', "<tt>$in{'table'}</tt>", "<tt>$in{'db'}</tt>");
  16 &ui_print_header($desc, $text{'adv_title'}, "");
  17
  18 print &ui_form_start("view_table.cgi", "post");
  19 print &ui_hidden("db", $in{'db'});
  20 print &ui_hidden("table", $in{'table'});
  21
  22 print &ui_radio("and", 1, [ [ 0, $text{'adv_or'} ],
  23                             [ 1, $text{'adv_and'} ] ]),"<p>\n";
  24 print "<table>\n";
  25 for($i=0; $i<10; $i++) {
  26         print "<tr>\n";
  27         print "<td>",&ui_select("field_$i", "",
  28                 [ [ "", "&nbsp;" ],
  29                   map { [ $_->{'field'}, $_->{'field'} ] } @str ]),"</td>\n";
  30         print "<td>",&ui_select("match_$i", 0,
  31                 [ map { [ $_, $text{'view_match'.$_} ] } (0.. 3) ]),"</td>\n";
  32         print "<td>",&ui_textbox("for_$i", undef, 30),"</td>\n";
  33         print "</tr>\n";
  34         }
  35 print "</table>\n";
  36 print &ui_form_end([ [ "advanced", $text{'adv_ok'} ] ]);
  37
  38 if ($access{'edonly'}) {
  39         &ui_print_footer("edit_dbase.cgi?db=$in{'db'}",$text{'dbase_return'},
  40                 "", $text{'index_return'});
  41         }
  42 else {
  43         &ui_print_footer("edit_table.cgi?db=$in{'db'}&table=$in{'table'}",
  44                 $text{'table_return'},
  45                 "edit_dbase.cgi?db=$in{'db'}", $text{'dbase_return'},
  46                 "", $text{'index_return'});
  47         }
  48