Credit report criteria

<% my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit") or die dbh->errstr; $sth->execute or die $sth->errstr; my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref}; %>

Credits by employee:	all <% foreach my $otaker ( @otakers ) { %> <%= $otaker %> <% } %>
for agent:	all <% foreach my $agent ( qsearch('agent', { disabled=>'' } ) ) { %> param('agentnum') == $agent->agentnum ? ' SELECTED' : '' %>><%= $agent->agent %> <% } %>
From:	m/d/y
To:	m/d/y