or eidiot "Illegal referral_custnum\n";
my $referral_custnum = $1;
my $cust_main = qsearchs('cust_main', { custnum => $referral_custnum } );
- print '<FORM METHOD=POST>'.
+ print '<FORM METHOD="GET">'.
qq!<INPUT TYPE="hidden" NAME="referral_custnum" VALUE="$referral_custnum">!.
'referrals of <A HREF="'. popurl(2).
"view/cust_main.cgi?$referral_custnum\">$referral_custnum: ".
my $ahref = '';
$ahref= '<A HREF="'.
FS::TicketSystem->href_customer_tickets($custnum,$priority).
- '">';
+ '">'
if $num;
print '<TR>'.
}
my $ahref = '';
- my $ahref = '<A HREF="'.
+ $ahref = '<A HREF="'.
FS::TicketSystem->href_customer_tickets($custnum).
- '">';
+ '">'
if $cust_main->get($addl_col);
print $ahref. $cust_main->get($addl_col). '</A>';