diff options
Diffstat (limited to 'LinkPoint.pm')
| -rw-r--r-- | LinkPoint.pm | 23 |
1 files changed, 12 insertions, 11 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index 520fdc0..93a49e6 100644 --- 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; |