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.11.0