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 $dbh = dbh;
  14          my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_main")
  15            or eidiot $dbh->errstr;
  16          $sth->execute() or eidiot $sth->errstr;
  17 #         my @otakers = map { $_->[0] } @{$sth->selectall_arrayref};
  18       %>
  19       <SELECT NAME="otaker">
  20       <% my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { %>
  21         <OPTION><%= $otaker->[0] %></OTAKER>
  22       <% } %>
  23       </SELECT>
  24       <P><INPUT TYPE="submit" VALUE="Search">
  25
  26     </FORM>
  27   </BODY>
  28 </HTML>
  29