@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.05';
+$VERSION = '2.06_01';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
if ($server_response !~ /^200/) {
- $self->is_success(0);
+ #$self->is_success(0);
my $error = "Server error: '$server_response'";
$error .= " / Transaction error: '".
($r->{'ProcStatusMsg'} || $r->{'StatusMsg'}) . "'"
if $r->{'ProcStatus'} != 0;
- $self->error_message($error);
+ #$self->error_message($error);
+ #overzealous? are there "normal decline" transaction errors being returned?
+ die "$error\n";
} else {
- if ( !exists($r->{'ProcStatus'}) ) {
+ die "Unable to parse response_page\n" if !exists($r->{'ProcStatus'});
- $self->is_success(0);
- $self->error_message( "Malformed response: '$page'" );
-
- } elsif ( $r->{'ProcStatus'} != 0 or
+ if ( $r->{'ProcStatus'} != 0 or
# NewOrders get ApprovalStatus, Reversals don't.
( exists($r->{'ApprovalStatus'}) ?
$r->{'ApprovalStatus'} != 1 :