X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=LinkPoint.pm;h=84ea74ef2afde7139f6a63e4dbddd2af5deb5465;hb=fc1c50ec369553974c7ea4cef4419003d41067ee;hp=9b87643b19fec2c992ded1a39177990d05cb2b4e;hpb=df2a10d5cef0fe6ee29286523c98ee8d72bff4c3;p=Business-OnlinePayment-LinkPoint.git

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
     }
 
 }