<% include('/elements/header.html', 'Credit report' ) %>

% % 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}; % <% include( '/elements/tr-select-agent.html', $cgi->param('agentnum'), 'label' => 'for agent: ', ) %> <% include( '/elements/tr-input-beginning_ending.html' ) %>

Credits by employee:

all % foreach my $otaker ( @otakers ) { <% $otaker %> % }

<% include('/elements/footer.html') %>