sub realtime_ach {
my $self = shift;
- $self->realtime_bop('ECHECK', @_);
+ $self->realtime_bop('CHECK', @_);
}
sub realtime_bop {
$address .= ", ". $cust_main->address2 if $cust_main->address2;
my($payname, $payfirst, $paylast);
- if ( $cust_main->payname && $method ne 'ECHECK' ) {
+ if ( $cust_main->payname && $method ne 'CHECK' ) {
$payname = $cust_main->payname;
$payname =~ /^\s*([\w \,\.\-\']*)?\s+([\w\,\.\-\']+)\s*$/
or do {
$content{card_number} = $cust_main->payinfo;
$cust_main->paydate =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
$content{expiration} = "$2/$1";
- } elsif ( $method eq 'ECHECK' ) {
- my($account_number,$routing_code) = $cust_main->payinfo
+ } elsif ( $method eq 'CHECK' ) {
+ my($account_number,$routing_code) = $cust_main->payinfo;
( $content{account_number}, $content{routing_code} ) =
split('@', $cust_main->payinfo);
$content{bank_name} = $cust_main->payname;
if ( $transaction->is_success() ) {
my %method2payby = (
- 'CC' => 'CARD',
- 'ECHECK' => 'CHEK',
+ 'CC' => 'CARD',
+ 'CHECK' => 'CHEK',
);
my $cust_pay = new FS::cust_pay ( {
=head1 VERSION
-$Id: cust_bill.pm,v 1.48 2002-10-12 10:15:55 ivan Exp $
+$Id: cust_bill.pm,v 1.50 2002-10-15 09:54:24 ivan Exp $
=head1 BUGS