updates for linkpoint 2.6 drain bramage

diff --git a/LinkPoint.pm b/LinkPoint.pm
index 520fdc0..93a49e6 100644 (file)
--- a/LinkPoint.pm
+++ b/LinkPoint.pm
@@ -1,6 +1,6 @@
 package Business::OnlinePayment::LinkPoint;
 
-# $Id: LinkPoint.pm,v 1.8 2003-05-13 10:25:08 ivan Exp $
+# $Id: LinkPoint.pm,v 1.9 2003-05-13 11:22:36 ivan Exp $
 
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@@ -159,23 +159,24 @@ sub submit {
       %response = $lperl->$action(\%post_data);
     }
 
-    if ( $response{'statusCode'} == 0 ) {
+    #if ( $response{'statusCode'} == 0 ) {
+    if ( $response{'statusMessage'} ) {
       $self->is_success(0);
       $self->result_code('');
-      if ( exists($response{'statusMessage'})
-           && defined($response{'statusMessage'}) ) { # "normal" error
-        $self->error_message($response{'statusMessage'});
-      } else { # "should not happen" error (should this die/croak?)
-        $self->error_message("No statusMessage returned!  Response follows:".
-          join(' / ', map { "$_=>".$response{$_} } keys %response )           );
-      }
-    } else {
+      $self->error_message($response{'statusMessage'});
+    } elsif ( $response{'statusCode'} ) {
       $self->is_success(1);
       $self->result_code($response{'AVSCode'});
       $self->authorization($response{'trackingID'});
 #      $self->order_number($response{'neworderID'});
+    } else {
+      #if ( exists($response{'statusMessage'})
+      #     && defined($response{'statusMessage'}) ) { # "normal" error
+      #} else { # "should not happen" error (should this die/croak?)
+        $self->error_message("No statusMessage returned!  Response follows:".
+          join(' / ', map { "$_=>".$response{$_} } keys %response )           );
+      #}
     }
-
 }
 
 1;