projects
/
Business-OnlinePayment-IPPay.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8550d7e
)
set default server and default shipping address to billing address for card transactions
author
jeff
<jeff>
Fri, 4 Jul 2008 00:47:49 +0000
(
00:47
+0000)
committer
jeff
<jeff>
Fri, 4 Jul 2008 00:47:49 +0000
(
00:47
+0000)
Changes
patch
|
blob
|
history
IPPay.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
9e1a7d2
..
8da843b
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,10
@@
Revision history for Perl extension Business::OnlinePayment::IPPay.
Revision history for Perl extension Business::OnlinePayment::IPPay.
+0.02 Sun Jul 3 17:44:08 2008 PDT
+ - add live default server;
+ - send billing address as shipping address for card transactions
+ where no shipping address is provided
+
0.01 Sun Jun 22 17:56:23 2008 EDT
- original version;
0.01 Sun Jun 22 17:56:23 2008 EDT
- original version;
diff --git
a/IPPay.pm
b/IPPay.pm
index
d9a0624
..
03eaefa
100644
(file)
--- a/
IPPay.pm
+++ b/
IPPay.pm
@@
-14,8
+14,8
@@
use Business::OnlinePayment::HTTPS;
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
1
';
-$DEBUG =
1
;
+$VERSION = '0.0
2
';
+$DEBUG =
0
;
$me = 'Business::OnlinePayment::IPPay';
sub set_defaults {
$me = 'Business::OnlinePayment::IPPay';
sub set_defaults {
@@
-23,7
+23,7
@@
sub set_defaults {
my %opts = @_;
# standard B::OP methods/data
my %opts = @_;
# standard B::OP methods/data
- $self->server('
test1
.jetpay.com') unless $self->server;
+ $self->server('
gateway17
.jetpay.com') unless $self->server;
$self->port('443') unless $self->port;
$self->path('/jetpay') unless $self->path;
$self->port('443') unless $self->port;
$self->path('/jetpay') unless $self->path;
@@
-237,6
+237,17
@@
sub submit {
Phone => 'ship_phone',
);
Phone => 'ship_phone',
);
+ unless ( $type ne 'CC' || keys %shippingaddr ) {
+ tie %shippingaddr, 'Tie::IxHash',
+ $self->revmap_fields(
+ Address => 'address',
+ City => 'city',
+ StateProv => 'state',
+ Country => 'country',
+ Phone => 'phone',
+ );
+ }
+
tie my %shippinginfo, 'Tie::IxHash',
$self->revmap_fields(
CustomerPO => 'CustomerPO',
tie my %shippinginfo, 'Tie::IxHash',
$self->revmap_fields(
CustomerPO => 'CustomerPO',