diff options
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/elements/menu.html | 1 | ||||
| -rwxr-xr-x | httemplate/search/cust_main.html | 9 |
2 files changed, 9 insertions, 1 deletions
diff --git a/httemplate/elements/menu.html b/httemplate/elements/menu.html index 07dc6990c..33867770d 100644 --- a/httemplate/elements/menu.html +++ b/httemplate/elements/menu.html @@ -129,6 +129,7 @@ $report_customers_lists{'by active trouble tickets'} = [ $fsurl. 'search/cust_ma if $conf->config('ticket_system'); $report_customers_lists{'with USPS-unvalidated addresses'} = [ $fsurl. 'search/cust_main.cgi?browse=uspsunvalid', '' ] if $conf->config('usps_webtools-userid') && $conf->config('usps_webtools-password'); +$report_customers_lists{'with referrals'} = [ $fsurl. 'search/cust_main.html?with_referrals=1' ]; tie my %report_customers, 'Tie::IxHash'; $report_customers{'List customers'} = [ \%report_customers_lists, 'List customers' ] diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index 040d6c356..0743829cb 100755 --- a/httemplate/search/cust_main.html +++ b/httemplate/search/cust_main.html @@ -27,7 +27,11 @@ $cgi->param('cust_fields') ) ), - map '', @extra_fields + map { $_ eq 'num_referrals' + ? $referral_link + : '' + } + @extra_fields ], &> <%init> @@ -51,6 +55,7 @@ my @scalars = qw ( all_tags all_pkg_classnums any_pkg_status + with_referrals ); for my $param ( @scalars ) { @@ -104,6 +109,8 @@ my @extra_fields = @{ delete($sql_query->{'extra_fields'}) }; my $link = [ "${p}view/cust_main.cgi?", 'custnum' ]; +my $referral_link = [ "${p}search/cust_main.cgi?referral_custnum=", 'custnum' ]; + ### # email links ### |