From 0dee55d87fdc03e22f0daae8651c9f61c907c5e1 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 4 Jul 2008 00:47:49 +0000
Subject: [PATCH] set default server and default shipping address to billing
address for card transactions
---
Changes | 5 +++++
IPPay.pm | 17 ++++++++++++++---
2 files changed, 19 insertions(+), 3 deletions(-)
diff --git a/Changes b/Changes
index 9e1a7d2..8da843b 100644
--- a/Changes
+++ b/Changes
@@ -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;
diff --git a/IPPay.pm b/IPPay.pm
index d9a0624..03eaefa 100644
--- 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);
-$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',
--
2.20.1