use base qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.02';
+$VERSION = '0.04';
$VERSION = eval $VERSION;
$DEBUG = 0;
my $type_action = $self->transaction_type(). '_'. $content{TransactionCode};
unless ( exists($required{$type_action}) ) {
- croak( "TransFirst eLink can't (yet?) handle transaction type: ".
- "$content{action} on " . $self->transaction_type() );
+# croak( "TransFirst eLink can't (yet?) handle transaction type: ".
+# "$content{action} on " . $self->transaction_type() );
+ $self->error_message("TransFirst eLink can't handle transaction type: ".
+ "$content{action} on " . $self->transaction_type() );
+ $self->is_success(0);
+ return;
}
my $expdate_mmyy = $self->expdate_mmyy( $content{"expiration"} );
croak "can't interpret response for unexpected type and action $type_action";
}
- if ( $resp eq "200" && ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
+ if ( $resp =~ /^(HTTP\S+ )?200/ && ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
$self->is_success(1);
}
else {