Revision history for Perl extension Business::OnlinePayment::IPPay.
+0.02 Sun Jul 3 17:44:08 2008 PDT
+ - add live default server;
+ - send billing address as shipping address for card transactions
+ where no shipping address is provided
+
0.01 Sun Jun 22 17:56:23 2008 EDT
- original version;
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 {
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;
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',