diff options
| author | ivan <ivan> | 2011-07-20 21:16:23 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-07-20 21:16:23 +0000 |
| commit | dc8839e9577e51f29ff963183f324dd060cf6276 (patch) | |
| tree | fb9c9a298a61047ddaa769f2cb0bd827f681bfaf /FS | |
| parent | 652b2d9f68a558d03dbf441fd28ad17e847dff42 (diff) | |
better error message for signup duplicate cards, allow editing of those customer records, RT#13744
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/cust_main.pm | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index d0a071cc3..5fce743fc 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -1440,6 +1440,11 @@ sub replace { && $self->payby =~ /^(CARD|DCRD)$/ && ( $old->payinfo eq $self->payinfo || $old->paymask eq $self->paymask ); + local($ignore_banned_card) = 1 + if ( $old->payby =~ /^(CARD|DCRD)$/ && $self->payby =~ /^(CARD|DCRD)$/ + || $old->payby =~ /^(CHEK|DCHK)$/ && $self->payby =~ /^(CHEK|DCHK)$/ ) + && ( $old->payinfo eq $self->payinfo || $old->paymask eq $self->paymask ); + local $SIG{HUP} = 'IGNORE'; local $SIG{INT} = 'IGNORE'; local $SIG{QUIT} = 'IGNORE'; @@ -1835,7 +1840,11 @@ sub check { if ( $ban ) { if ( $ban->bantype eq 'warn' ) { #or others depending on value of $ban->reason ? - return '_duplicate_card' unless $self->override_ban_warn; + return '_duplicate_card'. + ': disabled from'. time2str('%a %h %o at %r', $ban->_date). + ' until '. time2str('%a %h %o at %r', $ban->_end_date). + ' (ban# '. $ban->bannum. ')' + unless $self->override_ban_warn; } else { return 'Banned credit card: banned on '. time2str('%a %h %o at %r', $ban->_date). |