Customer Search

Search for Order taker: <% 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}; %> <% my $otaker; while ( $otaker = $sth->fetchrow_arrayref ) { %> <%= $otaker->[0] %> <% } %>