From 98dad00b5dbca92a649d32dce7001163434539cc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 3 Jan 2004 18:14:58 +0000
Subject: oops, forgot to backport agent selection from 1.5

---
 httemplate/search/cust_pkg_report.cgi | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'httemplate')

diff --git a/httemplate/search/cust_pkg_report.cgi b/httemplate/search/cust_pkg_report.cgi
index 0dad83a2a..b31674540 100755
--- a/httemplate/search/cust_pkg_report.cgi
+++ b/httemplate/search/cust_pkg_report.cgi
@@ -36,6 +36,23 @@
   });
 </SCRIPT>
         </TR>
+<% my %agent_search = dbdef->table('agent')->column('disabled')
+                        ? ( 'disabled' => '' ) : ();
+   my @agents = qsearch( 'agent', \%agent_search );
+   if ( scalar(@agents) == 1 ) {
+%>
+     <INPUT TYPE="hidden" NAME="agentnum" VALUE="<%= $agents[0]->agentnum %>">
+<% } else { %>
+
+        <TR>
+          <TD ALIGN="right">Agent: </TD>
+          <TD><SELECT NAME="agentnum"><OPTION VALUE="">(all)
+          <% foreach my $agent ( sort { $a->agent cmp $b->agent; } @agents) { %>
+            <OPTION VALUE="<%= $agent->agentnum %>"><%= $agent->agent %>
+          <% } %>
+          </TD>
+        </TR>
+<% } %>
       </TABLE>
       <BR><INPUT TYPE="submit" VALUE="Get Report">
 
-- 
cgit v1.2.1