diff options
Diffstat (limited to 'httemplate/search/cust_main-otaker.cgi')
-rwxr-xr-x | httemplate/search/cust_main-otaker.cgi | 22 |
1 files changed, 12 insertions, 10 deletions
diff --git a/httemplate/search/cust_main-otaker.cgi b/httemplate/search/cust_main-otaker.cgi index 6ac0bde18..210172fc0 100755 --- a/httemplate/search/cust_main-otaker.cgi +++ b/httemplate/search/cust_main-otaker.cgi @@ -1,23 +1,25 @@ -<%= include('/elements/header.html', 'Customer Search' ) %> +<% include('/elements/header.html', 'Customer Search' ) %> <FORM ACTION="cust_main.cgi" METHOD="GET"> Search for <B>Order taker</B>: <INPUT TYPE="hidden" NAME="otaker_on" VALUE="TRUE"> +% my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_main") +% or die dbh->errstr; +% $sth->execute() or die $sth->errstr; +% #my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref}; +% -<% my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_main") - or die dbh->errstr; - $sth->execute() or die $sth->errstr; - #my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref}; -%> <SELECT NAME="otaker"> -<% my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { %> - <OPTION><%= $otaker->[0] %> -<% } %> +% my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { + + <OPTION><% $otaker->[0] %> +% } + </SELECT> <P><INPUT TYPE="submit" VALUE="Search"> </FORM> -<%= include('/elements/footer.html') %> +<% include('/elements/footer.html') %> |