0.03

[Business-OnlinePayment-LinkPoint.git] / LinkPoint.pm

diff --git a/LinkPoint.pm b/LinkPoint.pm
index 520fdc0..8a7dfa9 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.10 2003-08-11 05:05:57 ivan Exp $
 
 use strict;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
@@ -13,7 +13,7 @@ require Exporter;
 @ISA = qw(Exporter AutoLoader Business::OnlinePayment);
 @EXPORT = qw();
 @EXPORT_OK = qw();
-$VERSION = '0.02';
+$VERSION = '0.03';
 
 use lperl; #2.6;  #lperl.pm from LinkPoint
 $LPERL::VERSION =~ /^(\d+\.\d+)/
@@ -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;
@@ -183,7 +184,7 @@ __END__
 
 =head1 NAME
 
-Business::OnlinePayment::LinkPoint - LinkPoint backend for Business::OnlinePayment
+Business::OnlinePayment::LinkPoint - LinkPoint (Cardservice) backend for Business::OnlinePayment
 
 =head1 SYNOPSIS
 
@@ -231,7 +232,7 @@ For detailed information see L<Business::OnlinePayment>.
 This module implements an interface to the LinkPoint Perl Wrapper
 http://www.linkpoint.com/product_solutions/internet/lperl/lperl_main.html
 
-Version 0.2 of this module has been updated for the LinkPoint Perl Wrapper
+Version 0.3 of this module has been updated for the LinkPoint Perl Wrapper
 version 2.6.
 
 =head1 BUGS