diff options
| -rw-r--r-- | PayflowPro.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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 { |