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
use base qw(Business::OnlinePayment::HTTPS);
-$VERSION = '1.00';
+$VERSION = '1.01';
$VERSION = eval $VERSION;
$DEBUG = 0;
%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(