1 <% include('/elements/header.html', 'Credit report' ) %>
3 <FORM ACTION="cust_credit.html" METHOD="GET">
4 <INPUT TYPE="hidden" NAME="magic" VALUE="_date">
8 <TD ALIGN="right">Credits by employee: </TD>
10 % my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit")
12 % $sth->execute or die $sth->errstr;
13 % my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref};
17 <TD><SELECT NAME="otaker">
18 <OPTION VALUE="">all</OPTION>
19 % foreach my $otaker ( @otakers ) {
21 <OPTION VALUE="<% $otaker %>"><% $otaker %></OPTION>
27 <% include( '/elements/tr-select-agent.html',
28 $cgi->param('agentnum'),
29 'label' => 'for agent: ',
32 <% include( '/elements/tr-input-beginning_ending.html' ) %>
36 <INPUT TYPE="submit" VALUE="Get Report">
40 <% include('/elements/footer.html') %>