projects
/
Business-OnlinePayment-TransactionCentral.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
17c9073
)
add email->Email mapping
author
ivan
<ivan>
Wed, 14 Nov 2007 21:26:05 +0000
(21:26 +0000)
committer
ivan
<ivan>
Wed, 14 Nov 2007 21:26:05 +0000
(21:26 +0000)
Changes
patch
|
blob
|
history
lib/Business/OnlinePayment/TransactionCentral.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
547b726
..
86fad5f
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::TransactionCentral.
Revision history for Perl extension Business::OnlinePayment::TransactionCentral.
+0.05 unreleased
+ - add email->Email mapping
+
0.04 Wed May 30 11:53:00 PDT 2007
- depend on B:OP v3
- fix a "false success" problem caused by discrepancy between test and
0.04 Wed May 30 11:53:00 PDT 2007
- depend on B:OP v3
- fix a "false success" problem caused by discrepancy between test and
diff --git
a/lib/Business/OnlinePayment/TransactionCentral.pm
b/lib/Business/OnlinePayment/TransactionCentral.pm
index
c9d7653
..
d510255
100644
(file)
--- a/
lib/Business/OnlinePayment/TransactionCentral.pm
+++ b/
lib/Business/OnlinePayment/TransactionCentral.pm
@@
-8,7
+8,7
@@
use Business::OnlinePayment::HTTPS 0.02;
use vars qw($VERSION @ISA $DEBUG);
@ISA = qw(Business::OnlinePayment::HTTPS);
use vars qw($VERSION @ISA $DEBUG);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
4
';
+$VERSION = '0.0
5
';
$DEBUG = 0;
sub set_defaults {
$DEBUG = 0;
sub set_defaults {
@@
-35,6
+35,7
@@
sub submit {
'NameonAccount' => 'name',
'AVSADDR' => 'address',
'AVSZIP' => 'zip',
'NameonAccount' => 'name',
'AVSADDR' => 'address',
'AVSZIP' => 'zip',
+ 'Email' => 'email',
'CCRURL' => \'',
'CVV2' => 'cvv2',
'TransID' => 'order_number',
'CCRURL' => \'',
'CVV2' => 'cvv2',
'TransID' => 'order_number',