projects
/
Business-OnlinePayment-PaymenTech.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update URLs from paymentech.net to chasepaymentech.com
[Business-OnlinePayment-PaymenTech.git]
/
lib
/
Business
/
OnlinePayment
/
PaymenTech.pm
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);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '2.0
6_01
';
+$VERSION = '2.0
7
';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$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;
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;
$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()) {
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;
}
warn $post_data if $DEBUG;