X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fcust_main.cgi;h=630d9e568e9b618f944e38ab9933f04c0473ed4a;hp=a5c73545761c4e659b79615b1a4636544afdec62;hb=d16051449aa84da6705b46573ccd98abdcb7551b;hpb=4c7ddc2010ddeaca45d40140993b05d43b7fe030 diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index a5c735457..630d9e568 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -206,8 +206,7 @@ print '
'; 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', 'Card number', $payinfo, '', @@ -467,7 +466,7 @@ foreach my $bill (@bills) { $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;