my $payinfo = $cust_main->payinfo;
$payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4));
print 'Credit card ',
my $payinfo = $cust_main->payinfo;
$payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4));
print 'Credit card ',
'<TR><TD ALIGN="right">Name on card</TD><TD BGCOLOR="#ffffff">',
$cust_main->payname, '</TD></TR>'
;
'<TR><TD ALIGN="right">Name on card</TD><TD BGCOLOR="#ffffff">',
$cust_main->payname, '</TD></TR>'
;
my( $account, $aba ) = split('@', $cust_main->payinfo );
print 'Electronic check',
( $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' ),
my( $account, $aba ) = split('@', $cust_main->payinfo );
print 'Electronic check',
( $cust_main->payby eq 'CHEK' ? '(automatic)' : '(on-demand)' ),