diff options
| author | plobbes <plobbes> | 2009-09-22 21:15:44 +0000 |
|---|---|---|
| committer | plobbes <plobbes> | 2009-09-22 21:15:44 +0000 |
| commit | a1e29f0c0180cfe72774d8454580113a5ead75c7 (patch) | |
| tree | 3f581f493dd3fc024ddae8d2c281bf60fc20da37 | |
| parent | 0cd63fdf0f05f7cf304d07707ddd2dae1cce268a (diff) | |
| -rw-r--r-- | Changes | 5 | ||||
| -rw-r--r-- | PayflowPro.pm | 12 |
2 files changed, 10 insertions, 7 deletions
@@ -1,5 +1,10 @@ Revision history for Perl extension Business::OnlinePayment::PayflowPro. +1.01 Tue Sep 22 17:03:00 EDT 2009 plobbes + - rt.cpan.org#49349: Fix Reference Transactions + NOTE: enable in PayfloPro manager transaction settings + Josh Rosenbaum + 1.00 Sat Aug 22 01:13:34 EDT 2009 plobbes - bump version to 1.00, should have probably done this with 0.07 as it was a radical enough departure from 0.06, also 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( |