diff options
| author | ivan <ivan> | 2002-03-25 14:59:06 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-03-25 14:59:06 +0000 |
| commit | 4ea362bfa2d2ea984996439e0c32cb4ea6dda7ee (patch) | |
| tree | 85b15171e4af2324ce5c28a5c62eb0bcaa24990e /httemplate/search/cust_main-otaker.cgi | |
| parent | 8932bfd9e536bc1e0c075500847e05f51f639a7a (diff) | |
customers by otaker report (ugly search/cust_main.cgi mods; revert if they
cause problems)
Diffstat (limited to 'httemplate/search/cust_main-otaker.cgi')
| -rwxr-xr-x | httemplate/search/cust_main-otaker.cgi | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/httemplate/search/cust_main-otaker.cgi b/httemplate/search/cust_main-otaker.cgi new file mode 100755 index 000000000..b7173c49c --- /dev/null +++ b/httemplate/search/cust_main-otaker.cgi @@ -0,0 +1,29 @@ +<HTML> + <HEAD> + <TITLE>Customer Search</TITLE> + </HEAD> + <BODY BGCOLOR="#e8e8e8"> + <FONT SIZE=7> + Customer Search + </FONT> + <BR> + <FORM ACTION="cust_main.cgi" METHOD="post"> + Search for <B>Order taker</B>: + <INPUT TYPE="hidden" NAME="otaker_on" VALUE="TRUE"> + <% my $dbh = dbh; + my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_main") + or eidiot $dbh->errstr; + $sth->execute() or eidiot $sth->errstr; +# my @otakers = map { $_->[0] } @{$sth->selectall_arrayref}; + %> + <SELECT NAME="otaker"> + <% my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { %> + <OPTION><%= $otaker->[0] %></OTAKER> + <% } %> + </SELECT> + <P><INPUT TYPE="submit" VALUE="Search"> + + </FORM> + </BODY> +</HTML> + |