3 <TITLE>Credit report criteria</TITLE>
4 <LINK REL="stylesheet" TYPE="text/css" HREF="../elements/calendar-win2k-2.css" TITLE="win2k-2">
5 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar_stripped.js"></SCRIPT>
6 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-en.js"></SCRIPT>
7 <SCRIPT TYPE="text/javascript" SRC="../elements/calendar-setup.js"></SCRIPT>
9 <BODY BGCOLOR="#e8e8e8">
10 <H1>Credit report criteria</H1>
11 <FORM ACTION="cust_credit.html" METHOD="GET">
12 <INPUT TYPE="hidden" NAME="magic" VALUE="_date">
15 <TD ALIGN="right">Credits by employee: </TD>
17 my $sth = dbh->prepare("SELECT DISTINCT otaker FROM cust_credit")
19 $sth->execute or die $sth->errstr;
20 my @otakers = map { $_->[0] } @{$sth->fetchall_arrayref};
22 <TD><SELECT NAME="otaker">
23 <OPTION VALUE="">all</OPTION>
24 <% foreach my $otaker ( @otakers ) { %>
25 <OPTION VALUE="<%= $otaker %>"><%= $otaker %></OPTION>
31 <TD ALIGN="right">for agent: </TD>
32 <TD><SELECT NAME="agentnum">
33 <OPTION VALUE="">all</OPTION>
34 <% foreach my $agent ( qsearch('agent', { disabled=>'' } ) ) { %>
35 <OPTION VALUE="<%= $agent->agentnum %>"<%= $cgi->param('agentnum') == $agent->agentnum ? ' SELECTED' : '' %>><%= $agent->agent %>
41 <TD ALIGN="right">From: </TD>
42 <TD><INPUT TYPE="text" NAME="beginning" ID="beginning_text" VALUE="" SIZE=11 MAXLENGTH=10> <IMG SRC="../images/calendar.png" ID="beginning_button" STYLE="cursor: pointer" TITLE="Select date"><BR><i>m/d/y</i></TD>
43 <SCRIPT TYPE="text/javascript">
45 inputField: "beginning_text",
47 button: "beginning_button",
53 <TD ALIGN="right">To: </TD>
54 <TD><INPUT TYPE="text" NAME="ending" ID="ending_text" VALUE="" SIZE=11 MAXLENGTH=10> <IMG SRC="../images/calendar.png" ID="ending_button" STYLE="cursor: pointer" TITLE="Select date"><BR><i>m/d/y</i></TD>
55 <SCRIPT TYPE="text/javascript">
57 inputField: "ending_text",
59 button: "ending_button",
65 <BR><INPUT TYPE="submit" VALUE="Get Report">