diff options
| author | jeff <jeff> | 2007-05-01 21:37:17 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2007-05-01 21:37:17 +0000 |
| commit | fc1c50ec369553974c7ea4cef4419003d41067ee (patch) | |
| tree | 3d0c13c5a254aa1ac81abe2290e4b6c944caffc9 /LinkPoint.pm | |
| parent | df2a10d5cef0fe6ee29286523c98ee8d72bff4c3 (diff) | |
improve error messages (particularly for checks)
Diffstat (limited to 'LinkPoint.pm')
| -rw-r--r-- | LinkPoint.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/LinkPoint.pm b/LinkPoint.pm index 9b87643..84ea74e 100644 --- a/LinkPoint.pm +++ b/LinkPoint.pm @@ -1,6 +1,6 @@ package Business::OnlinePayment::LinkPoint; -# $Id: LinkPoint.pm,v 1.27 2007-04-07 00:01:29 jeff Exp $ +# $Id: LinkPoint.pm,v 1.28 2007-05-01 21:37:17 jeff Exp $ use strict; use vars qw($VERSION @ISA $DEBUG @EXPORT @EXPORT_OK); @@ -13,7 +13,7 @@ require Exporter; @ISA = qw(Exporter AutoLoader Business::OnlinePayment); @EXPORT = qw(); @EXPORT_OK = qw(); -$VERSION = '0.07'; +$VERSION = '0.08'; $DEBUG = 0; use lpperl; #3; #lpperl.pm from LinkPoint @@ -222,7 +222,9 @@ sub submit { } else { $self->is_success(0); $self->result_code(''); - $self->error_message($response{'r_error'}); + $response{'r_error'} =~/\S/ + ? $self->error_message($response{'r_error'}) + : $self->error_message($response{'r_approved'}); # no r_error for checks } } |