projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
4c7ddc2
)
last 4 digits of card instead of first
author
ivan
<ivan>
Fri, 28 Jun 2002 02:21:56 +0000
(
02:21
+0000)
committer
ivan
<ivan>
Fri, 28 Jun 2002 02:21:56 +0000
(
02:21
+0000)
httemplate/view/cust_main.cgi
patch
|
blob
|
history
diff --git
a/httemplate/view/cust_main.cgi
b/httemplate/view/cust_main.cgi
index
a5c7354
..
630d9e5
100755
(executable)
--- a/
httemplate/view/cust_main.cgi
+++ b/
httemplate/view/cust_main.cgi
@@
-206,8
+206,7
@@
print '<BR>';
if ( $cust_main->payby eq 'CARD' ) {
my $payinfo = $cust_main->payinfo;
if ( $cust_main->payby eq 'CARD' ) {
my $payinfo = $cust_main->payinfo;
- $payinfo = substr($payinfo,0,4). 'x'x(length($payinfo)-4);
-
+ $payinfo = 'x'x(length($payinfo)-4). substr($payinfo,(length($payinfo)-4));
print 'Credit card</TD></TR>',
'<TR><TD ALIGN="right">Card number</TD><TD BGCOLOR="#ffffff">',
$payinfo, '</TD></TR>',
print 'Credit card</TD></TR>',
'<TR><TD ALIGN="right">Card number</TD><TD BGCOLOR="#ffffff">',
$payinfo, '</TD></TR>',
@@
-467,7
+466,7
@@
foreach my $bill (@bills) {
$payment->payinfo,
$cust_bill_pay->amount,
);
$payment->payinfo,
$cust_bill_pay->amount,
);
- $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;