diff options
author | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-08-23 22:25:39 +0000 |
commit | 3ce7691203a7737406bf2d4442f7fd84b81f847e (patch) | |
tree | 90658b097da96772224f04771888ac6ca1a940aa /httemplate/search/cust_main-otaker.cgi | |
parent | 15e561850b61b10a92a46d8f3e316d53d4970087 (diff) |
Will things ever be the same again?
It's the final masonize
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') %> |