@ISA = qw( Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
my $self = shift;
$self->server('paymentsgateway.net');
$self->port( 5050 );
- $self->build_subs(qw(test_transaction));
}
sub map_fields {
'discover' => 10,
'cc' => 10,
'check' => 20,
+ 'echeck' => 20,
);
#pg_type/action = action + type
)
);
- if ( $content{'type'} =~ /^check$/i ) {
+ if ( $content{'type'} =~ /^e?check$/i ) {
push @fields, qw( ecom_payment_check_trn
ecom_payment_check_account
ecom_payment_check_account_type );
}
my $request = join("\n", map { "$_=". $content{$_} }
- grep { $content{$_} ne '' }
+ grep { defined($content{$_}) && $content{$_} ne '' }
@fields ).
"\nendofdata\n";