Customer Search

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