@ISA = qw( Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
'U51' => 'Merchant is not "live"',
'U52' => 'Merchant not approved for transaction type (CC or EFT)',
'U53' => 'Transaction amount exceeds merchant\'s per transaction limit',
- 'U54' => 'Merchant\'s configuration requires updating call customer'.
+ 'U54' => 'Merchant\'s configuration requires updating - call customer'.
' support',
'U80' => 'Transaction was declined due to preauthorization (ATM Verify)'.
' result',
my $self = shift;
$self->server('paymentsgateway.net');
$self->port( 5050 );
- $self->build_subs(qw(test_transaction));
}
sub map_fields {
}
my $request = join("\n", map { "$_=". $content{$_} }
- grep { $content{$_} ne '' }
+ grep { defined($content{$_}) && $content{$_} ne '' }
@fields ).
"\nendofdata\n";