X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=PayflowPro.pm;h=86a43a05bf35e11bf971d69d0a682a71b411f8a9;hb=d49cf874685e4460fa4d9edd17f0186c08bf2d90;hp=906bce792c2fabd22a671a3d1e138600202fdd12;hpb=589764ffc76ff028f267809a65ae08e6974ef7be;p=Business-OnlinePayment-PayflowPro.git diff --git a/PayflowPro.pm b/PayflowPro.pm index 906bce7..86a43a0 100644 --- a/PayflowPro.pm +++ b/PayflowPro.pm @@ -166,7 +166,7 @@ sub submit { my @required = qw( TRXTYPE TENDER PARTNER VENDOR USER PWD ); if ( $self->transaction_type() eq 'C' ) { #credit card - if ( $self->action() =~ /^[CDV]$/ && exists($content{'ORIGID'}) + if ( $content{'action'} =~ /^[CDV]$/ && exists($content{'ORIGID'}) && defined($content{'ORIGID'}) && length($content{'ORIGID'}) ) { push @required, qw(ORIGID); } else {