use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.10';
+$VERSION = '0.11_01';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
}
if ($self->test_transaction()) {
$content{'login'} = 'TESTTERMINAL';
+ $self->server('testgtwy.ippay.com') if $self->server eq 'gtwy.ippay.com';
}
$self->content(%content);
ENCODING => 'us-ascii',
);
$writer->xmlDecl();
- $writer->startTag('JetPay');
+ $writer->startTag('ippay');
foreach ( keys ( %req ) ) {
$self->_xmlwrite($writer, $_, $req{$_});
}
- $writer->endTag('JetPay');
+ $writer->endTag('ippay');
$writer->end();
warn "$post_data\n" if $DEBUG > 1;
Reverse Authorization patch from dougforpres
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (c) 1999 Jason Kohles
+Copyright (c) 2002-2003 Ivan Kohler
+Copyright (c) 2008-2021 Freeside Internet Services, Inc.
+
+All rights reserved. This program is free software; you can redistribute it
+and/or modify it under the same terms as Perl itself.
+
=head1 ADVERTISEMENT
Need a complete, open-source back-office and customer self-service solution?