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">',
for ( qw( setup bill susp expire cancel ) ) {
print "<TD ROWSPAN=$rowspan><FONT SIZE=-1>", ( $package->getfield($_)
- ? time2str("%D", $package->getfield($_) )
+ ? time2str("%D<BR><FONT SIZE=-2>%r %z</FONT>",
+ $package->getfield($_) )
: ' '
), '</FONT></TD>',
;