X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=PayflowPro.pm;h=d95affca2018469228b9a37cf994d78f2e3a9cbc;hb=HEAD;hp=6f49649177095e044c93b92dd4f7f167fb94e3c5;hpb=0cd63fdf0f05f7cf304d07707ddd2dae1cce268a;p=Business-OnlinePayment-PayflowPro.git

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(