From 0dee55d87fdc03e22f0daae8651c9f61c907c5e1 Mon Sep 17 00:00:00 2001
From: jeff <jeff>
Date: Fri, 4 Jul 2008 00:47:49 +0000
Subject: set default server and default shipping address to billing address
 for card transactions

---
 IPPay.pm | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

(limited to 'IPPay.pm')

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',
-- 
cgit v1.2.1