X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-TransFirsteLink.git;a=blobdiff_plain;f=TransFirsteLink.pm;h=8edf2dd9f49b6e8079a8fe3052ab2678a0031806;hp=6bcbfab8e65768320424cc8c383db34fdfd139b9;hb=068cfc28113f95495441c5b1ef84380952903eaa;hpb=92838d3751b29bee8c463ce63ae570286930b564 diff --git a/TransFirsteLink.pm b/TransFirsteLink.pm index 6bcbfab..8edf2dd 100644 --- a/TransFirsteLink.pm +++ b/TransFirsteLink.pm @@ -7,7 +7,7 @@ use Tie::IxHash; use base qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.03'; +$VERSION = '0.04'; $VERSION = eval $VERSION; $DEBUG = 0; @@ -375,8 +375,12 @@ sub submit { 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"} );