projects
/
Business-OnlinePayment-TransFirsteLink.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
92838d3
)
don't die when we do not know how to perform the transaction
author
jeff
<jeff>
Thu, 21 Jun 2007 19:25:50 +0000
(19:25 +0000)
committer
jeff
<jeff>
Thu, 21 Jun 2007 19:25:50 +0000
(19:25 +0000)
TransFirsteLink.pm
patch
|
blob
|
history
diff --git
a/TransFirsteLink.pm
b/TransFirsteLink.pm
index
6bcbfab
..
8edf2dd
100644
(file)
--- a/
TransFirsteLink.pm
+++ b/
TransFirsteLink.pm
@@
-7,7
+7,7
@@
use Tie::IxHash;
use base qw(Business::OnlinePayment::HTTPS);
use base qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
3
';
+$VERSION = '0.0
4
';
$VERSION = eval $VERSION;
$DEBUG = 0;
$VERSION = eval $VERSION;
$DEBUG = 0;
@@
-375,8
+375,12
@@
sub submit {
my $type_action = $self->transaction_type(). '_'. $content{TransactionCode};
unless ( exists($required{$type_action}) ) {
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"} );
}
my $expdate_mmyy = $self->expdate_mmyy( $content{"expiration"} );