diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2017-05-11 11:29:46 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2017-05-11 11:29:46 -0700 |
| commit | 8ce4cd2e241d8d7ac20e9a7336f88ef5b333c279 (patch) | |
| tree | 7a49b57be1fac8b7182da77b42ea719770175a30 /lib | |
| parent | 96fafe83f6638096f9d572748d309f696926b964 (diff) | |
update URLs from paymentech.net to chasepaymentech.com
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Business/OnlinePayment/PaymenTech.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Business/OnlinePayment/PaymenTech.pm b/lib/Business/OnlinePayment/PaymenTech.pm index 14131e8..30d9824 100644 --- 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; |