projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d160514
)
more card display changes
author
ivan
<ivan>
Fri, 28 Jun 2002 03:09:10 +0000
(
03:09
+0000)
committer
ivan
<ivan>
Fri, 28 Jun 2002 03:09:10 +0000
(
03:09
+0000)
httemplate/view/cust_main.cgi
patch
|
blob
|
history
diff --git
a/httemplate/view/cust_main.cgi
b/httemplate/view/cust_main.cgi
index
630d9e5
..
4796481
100755
(executable)
--- a/
httemplate/view/cust_main.cgi
+++ b/
httemplate/view/cust_main.cgi
@@
-466,7
+466,7
@@
foreach my $bill (@bills) {
$payment->payinfo,
$cust_bill_pay->amount,
);
$payment->payinfo,
$cust_bill_pay->amount,
);
- $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4))
;
+ $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4))
if $payby eq 'CARD';
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
if $payby eq 'CARD';
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
@@
-549,7
+549,7
@@
foreach my $payment (@unapplied_payments) {
my $payby = $payment->payby;
my $payinfo = $payment->payinfo;
#false laziness w/above
my $payby = $payment->payby;
my $payinfo = $payment->payinfo;
#false laziness w/above
- $payinfo =
substr($payinfo,0,4). 'x'x(length($payinfo)-4
)
+ $payinfo =
'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4)
)
if $payby eq 'CARD';
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;
if $payby eq 'CARD';
my $target = "$payby$payinfo";
$payby =~ s/^BILL$/Check #/ if $payinfo;