diff options
Diffstat (limited to 'httemplate/search')
-rwxr-xr-x | httemplate/search/cust_pkg.cgi | 2 | ||||
-rwxr-xr-x | httemplate/search/report_cust_pkg.html | 18 |
2 files changed, 18 insertions, 2 deletions
diff --git a/httemplate/search/cust_pkg.cgi b/httemplate/search/cust_pkg.cgi index f03bbc26b..37e8d6c5f 100755 --- a/httemplate/search/cust_pkg.cgi +++ b/httemplate/search/cust_pkg.cgi @@ -164,7 +164,7 @@ my %search_hash = (); $search_hash{'query'} = $cgi->keywords; -for (qw( agentnum magic status classnum custom )) { +for (qw( agentnum custnum magic status classnum custom )) { $search_hash{$_} = $cgi->param($_) if $cgi->param($_); } diff --git a/httemplate/search/report_cust_pkg.html b/httemplate/search/report_cust_pkg.html index 66dd7d15e..fcc093410 100755 --- a/httemplate/search/report_cust_pkg.html +++ b/httemplate/search/report_cust_pkg.html @@ -1,7 +1,8 @@ -<% include('/elements/header.html', 'Package Report' ) %> +<% include('/elements/header.html', $title ) %> <FORM ACTION="cust_pkg.cgi" METHOD="GET"> <INPUT TYPE="hidden" NAME="magic" VALUE="bill"> +<INPUT TYPE="hidden" NAME="custnum" VALUE="<% $custnum %>"> <TABLE BGCOLOR="#cccccc" CELLSPACING=0> @@ -11,11 +12,13 @@ </TH> </TR> +% unless ( $custnum ) { <% include( '/elements/tr-select-agent.html', 'curr_value' => scalar( $cgi->param('agentnum') ), 'disable_empty' => 0, ) %> +% } <% include( '/elements/tr-select-cust_pkg-status.html', 'onchange' => 'status_changed(this);', @@ -155,6 +158,19 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('List packages'); +my $title = 'Package Report'; + +my $custnum = ''; +if ( $cgi->param('custnum') =~ /^(\d+)$/ ) { + $custnum = $1; + my $cust_main = qsearchs({ + 'table' => 'cust_main', + 'hashref' => { 'custnum' => $custnum }, + 'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql, + }) or die "unknown custnum $custnum"; + $title .= ': '. $cust_main->name; +} + </%init> <%once> |