3 <TITLE>Credit report criteria</TITLE>
5 <BODY BGCOLOR="#e8e8e8">
6 <H1>Credit report criteria</H1>
7 <FORM ACTION="cust_credit.html" METHOD="GET">
8 <INPUT TYPE="hidden" NAME="magic" VALUE="_date">
11 <TD ALIGN="right">Credits by employee: </TD>
13 my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit")
15 $sth->execute or die $sth->errstr;
16 my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref};
18 <TD><SELECT NAME="otaker">
19 <OPTION VALUE="">all</OPTION>
20 <% foreach my $otaker ( @otakers ) { %>
21 <OPTION VALUE="<%= $otaker %>"><%= $otaker %></OPTION>
26 <%= include( '/elements/tr-select-agent.html',
27 $cgi->param('agentnum'),
28 'label' => 'for agent: ',
31 <%= include( '/elements/tr-input-beginning_ending.html' ) %>
33 <BR><INPUT TYPE="submit" VALUE="Get Report">