$refnum ||= $referrals[0]->refnum;
print qq!<INPUT TYPE="hidden" NAME="refnum" VALUE="$refnum">!;
} else {
- print qq!<BR><BR>${r}Referral <SELECT NAME="refnum" SIZE="1">!;
+ print qq!<BR><BR>${r}Advertising source <SELECT NAME="refnum" SIZE="1">!;
print "<OPTION> " unless $refnum;
my($referral);
foreach $referral (sort {
my $referral = qsearchs('part_referral', {
'refnum' => $cust_main->refnum
} );
- print '<TR><TD ALIGN="right">Referral</TD><TD BGCOLOR="#ffffff">',
+ print '<TR><TD ALIGN="right">Advertising source</TD><TD BGCOLOR="#ffffff">',
$referral->refnum, ": ", $referral->referral, '</TD></TR>';
}
print '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">',