X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-TransFirsteLink.git;a=blobdiff_plain;f=TransFirsteLink.pm;fp=TransFirsteLink.pm;h=6bcbfab8e65768320424cc8c383db34fdfd139b9;hp=80cc4c25631c911544193112b505602873398cef;hb=92838d3751b29bee8c463ce63ae570286930b564;hpb=6d0e232586bb93244951a46844e28a0828ce872a

diff --git a/TransFirsteLink.pm b/TransFirsteLink.pm
index 80cc4c2..6bcbfab 100644
--- a/TransFirsteLink.pm
+++ b/TransFirsteLink.pm
@@ -7,7 +7,7 @@ use Tie::IxHash;
 
 use base qw(Business::OnlinePayment::HTTPS);
 
-$VERSION = '0.02';
+$VERSION = '0.03';
 $VERSION = eval $VERSION;
 $DEBUG   = 0;
 
@@ -547,7 +547,7 @@ sub submit {
       croak "can't interpret response for unexpected type and action $type_action";
     }
 
-    if ( $resp eq "200" && ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
+    if ( $resp =~ /^(HTTP\S+ )?200/ && ($status eq "000" || $status eq "011" || $status eq "085" || $status eq "0P0" || $status eq "P00" || $status eq 'ACCEPTED') ) {
         $self->is_success(1);
     }
     else {