$self->payinfo($payinfo);
$self->paycvv('');
- my $ban = qsearchs('banned_pay', $self->_banned_pay_hashref);
- if ( $ban ) {
- return 'Banned ACH account: banned on '.
- time2str('%a %h %o at %r', $ban->_date).
- ' by '. $ban->otaker.
- ' (ban# '. $ban->bannum. ')';
+ unless ( $ignore_banned_card ) {
+ my $ban = qsearchs('banned_pay', $self->_banned_pay_hashref);
+ if ( $ban ) {
+ return 'Banned ACH account: banned on '.
+ time2str('%a %h %o at %r', $ban->_date).
+ ' by '. $ban->otaker.
+ ' (ban# '. $ban->bannum. ')';
+ }
}
} elsif ( $self->payby eq 'LECB' ) {
WHERE custnum = $custnum
";
+ #XXX fix harmless but loud: Argument "" isn't numeric in sprintf
sprintf( "%.2f", $self->scalar_sql($sql) );
}
WHERE custnum = $custnum
";
+ #XXX fix harmless but loud: Argument "" isn't numeric in sprintf
sprintf( "%.2f", $self->scalar_sql($sql) );
}
WHERE custnum = $custnum
";
+ #XXX fix harmless but loud: Argument "" isn't numeric in sprintf
sprintf( "%.2f", $self->scalar_sql($sql) );
}