diff options
| -rw-r--r-- | Changes | 5 | ||||
| -rw-r--r-- | IPPay.pm | 17 |
2 files changed, 19 insertions, 3 deletions
@@ -1,5 +1,10 @@ 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; @@ -14,8 +14,8 @@ use Business::OnlinePayment::HTTPS; use vars qw($VERSION $DEBUG @ISA $me); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.01'; -$DEBUG = 1; +$VERSION = '0.02'; +$DEBUG = 0; $me = 'Business::OnlinePayment::IPPay'; sub set_defaults { @@ -23,7 +23,7 @@ sub set_defaults { 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; @@ -237,6 +237,17 @@ sub submit { 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', |