httemplate/search/cust_main-otaker.cgi

   1 <HTML>
   2   <HEAD>
   3     <TITLE>Customer Search</TITLE>
   4   </HEAD>
   5   <BODY BGCOLOR="#e8e8e8">
   6     <FONT SIZE=7>
   7       Customer Search
   8     </FONT>
   9     <BR>
  10     <FORM ACTION="cust_main.cgi" METHOD="post">
  11       Search for <B>Order taker</B>:
  12       <INPUT TYPE="hidden" NAME="otaker_on" VALUE="TRUE">
  13       <% my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_main")
  14            or die dbh->errstr;
  15          $sth->execute() or die $sth->errstr;
  16 #         my @otakers = map { $_->[0] } @{$sth->selectall_arrayref};
  17       %>
  18       <SELECT NAME="otaker">
  19       <% my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { %>
  20         <OPTION><%= $otaker->[0] %></OTAKER>
  21       <% } %>
  22       </SELECT>
  23       <P><INPUT TYPE="submit" VALUE="Search">
  24
  25     </FORM>
  26   </BODY>
  27 </HTML>
  28