projects
/
Business-OnlinePayment-PayflowPro.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0cd63fd
)
- version 1.01: rt.cpan.org#49349: Fix Reference Transactions
master
author
plobbes
<plobbes>
Tue, 22 Sep 2009 21:15:44 +0000
(21:15 +0000)
committer
plobbes
<plobbes>
Tue, 22 Sep 2009 21:15:44 +0000
(21:15 +0000)
Changes
patch
|
blob
|
history
PayflowPro.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
9011bb3
..
c4dad1a
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,10
@@
Revision history for Perl extension Business::OnlinePayment::PayflowPro.
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
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
(file)
--- a/
PayflowPro.pm
+++ b/
PayflowPro.pm
@@
-8,7
+8,7
@@
use Business::OnlinePayment::HTTPS 0.06;
use base qw(Business::OnlinePayment::HTTPS);
use base qw(Business::OnlinePayment::HTTPS);
-$VERSION = '1.0
0
';
+$VERSION = '1.0
1
';
$VERSION = eval $VERSION;
$DEBUG = 0;
$VERSION = eval $VERSION;
$DEBUG = 0;
@@
-222,19
+222,17
@@
sub submit {
%content = $self->content;
my @required = qw( TRXTYPE TENDER PARTNER VENDOR USER PWD );
%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 ( $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 {
push @required, qw(ORIGID);
}
else {
-
- # never get here, we croak above if transaction_type ne 'C'
push @required, qw(AMT ACCT EXPDATE);
}
}
push @required, qw(AMT ACCT EXPDATE);
}
}
+
$self->required_fields(@required);
my %params = $self->get_fields(
$self->required_fields(@required);
my %params = $self->get_fields(