From a1e29f0c0180cfe72774d8454580113a5ead75c7 Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Tue, 22 Sep 2009 21:15:44 +0000
Subject: - version 1.01: rt.cpan.org#49349: Fix Reference Transactions

---
 PayflowPro.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

(limited to 'PayflowPro.pm')

diff --git a/PayflowPro.pm b/PayflowPro.pm
index 6f49649..d95affc 100644
--- a/PayflowPro.pm
+++ b/PayflowPro.pm
@@ -8,7 +8,7 @@ use Business::OnlinePayment::HTTPS 0.06;
 
 use base qw(Business::OnlinePayment::HTTPS);
 
-$VERSION = '1.00';
+$VERSION = '1.01';
 $VERSION = eval $VERSION;
 $DEBUG   = 0;
 
@@ -222,19 +222,17 @@ sub submit {
     %content = $self->content;
 
     my @required = qw( TRXTYPE TENDER PARTNER VENDOR USER PWD );
+
+    # NOTE: we croak above if transaction_type ne 'C'
     if ( $self->transaction_type() eq 'C' ) {    # credit card
-        if (   $content{'action'} =~ /^[CDV]$/
-            && defined( $content{'ORIGID'} )
-            && length( $content{'ORIGID'} ) )
-        {
+        if ( defined( $content{'ORIGID'} ) && length( $content{'ORIGID'} ) ) {
             push @required, qw(ORIGID);
         }
         else {
-
-            # never get here, we croak above if transaction_type ne 'C'
             push @required, qw(AMT ACCT EXPDATE);
         }
     }
+
     $self->required_fields(@required);
 
     my %params = $self->get_fields(
-- 
cgit v1.2.1