@ISA = qw(Exporter AutoLoader Business::OnlinePayment);
@EXPORT = qw();
@EXPORT_OK = qw();
-$VERSION = '0.01';
+$VERSION = '0.02';
$DEBUG = 0;
croak "$type not (yet) supported";
}
- ( my $exp = $content{'expiration'} ) =~ s/\///;
+ $content{'expiration'} =~ /^(\d+)\/(\d+)$/;
+ my($m, $y) = ($1, $2);
+ $m = $m+0;
+ $m = "0$m" if $m<10;
+ my $exp = "$m$y";
$self->revmap_fields(
'M_id' => 'login',
'C_email' => 'email',
'C_cardnumber' => 'card_number',
'C_exp' => \$exp,
- 'T_amount' => 'amount',
+ 'T_amt' => 'amount',
'T_code' => 'action',
#'T_ordernum' => 'invoice_number', #probably not unique...
#'T_auth' =>