update URLs from paymentech.net to chasepaymentech.com

diff --git a/Changes b/Changes
index 18e759e..260f53d 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Business-OnlinePayment-PaymenTech
 
+2.07    unreleased
+        - update URLs from paymentech.net to chasepaymentech.com
+
 2.06    unreleased
         - throw a fatal exception on non-decline problems, per B:OP
           notes_for_module_writers_v3

diff --git a/lib/Business/OnlinePayment/PaymenTech.pm b/lib/Business/OnlinePayment/PaymenTech.pm
index 14131e8..30d9824 100644 (file)
--- a/lib/Business/OnlinePayment/PaymenTech.pm
+++ b/lib/Business/OnlinePayment/PaymenTech.pm
@@ -9,7 +9,7 @@ use vars qw($VERSION $DEBUG @ISA $me);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
 
-$VERSION = '2.06_01';
+$VERSION = '2.07';
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 $DEBUG = 0;
@@ -128,7 +128,7 @@ my %failure_status = (
 sub set_defaults {
     my $self = shift;
 
-    $self->server('orbitalvar1.paymentech.net') unless $self->server; # this is the test server.
+    $self->server('orbitalvar1.chasepaymentech.com') unless $self->server; # this is the test server.
     $self->port('443') unless $self->port;
     $self->path('/authorize') unless $self->path;
 
@@ -270,7 +270,7 @@ sub submit {
   my $post_data = XMLout({ Request => $request }, KeepRoot => 1, NoAttr => 1, NoSort => 1);
 
   if (!$self->test_transaction()) {
-    $self->server('orbital1.paymentech.net');
+    $self->server('orbital1.chasepaymentech.com');
   }
 
   warn $post_data if $DEBUG;