X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fcust_main.html;h=7729da4198ca9a005661bc301890593e67393b6b;hb=c742a74ec444c4606006a14e814d06e0b1795ea4;hp=24348ff8a551588fddd6d5a59b1fb58e85abc2fa;hpb=ded0ab5cac02f099b387de360fb6dd6bd8cbb6b4;p=freeside.git diff --git a/httemplate/search/cust_main.html b/httemplate/search/cust_main.html index 24348ff8a..7729da419 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> @@ -41,21 +45,26 @@ my %search_hash = (); #scalars my @scalars = qw ( - agentnum status address zip paydate_year paydate_month invoice_terms - no_censustract with_geocode with_email POST no_POST + agentnum salesnum status + address city county state zip country location_history + paydate_year paydate_month invoice_terms + no_censustract with_geocode with_email tax no_tax POST no_POST custbatch usernum cancelled_pkgs cust_fields flattened_pkgs all_tags + all_pkg_classnums + any_pkg_status + with_referrals referral_status ); for my $param ( @scalars ) { $search_hash{$param} = scalar( $cgi->param($param) ) - if $cgi->param($param); + if length($cgi->param($param)); } #lists -for my $param (qw( classnum refnum payby tagnum )) { +for my $param (qw( classnum refnum payby tagnum pkg_classnum )) { $search_hash{$param} = [ $cgi->param($param) ]; } @@ -100,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 ###