X-Git-Url: http://git.freeside.biz/gitweb/?p=Business-OnlinePayment-eSelectPlus.git;a=blobdiff_plain;f=eSelectPlus.pm;fp=eSelectPlus.pm;h=ebe02034942bb4fb9ddc9c36a0b478e983504951;hp=33577031ca6cb0e14718d46cbd62c7508423eaa6;hb=f1a879e6989d8d9687fd5033a46488e8b13448e1;hpb=eba22f02d42477d467b870179eb01cc752960c1d diff --git a/eSelectPlus.pm b/eSelectPlus.pm index 3357703..ebe0203 100644 --- a/eSelectPlus.pm +++ b/eSelectPlus.pm @@ -8,7 +8,7 @@ use Business::OnlinePayment::HTTPS 0.03; use vars qw($VERSION $DEBUG @ISA); @ISA = qw(Business::OnlinePayment::HTTPS); -$VERSION = '0.06'; +$VERSION = '0.07'; $DEBUG = 0; sub set_defaults { @@ -55,6 +55,10 @@ sub submit { } } + my %cust_id = ( 'invoice_number' => 'cust_id' ); + + my $invoice_number = $self->{_content}{invoice_number}; + # BOP field => eSelectPlus field #$self->map_fields(); $self->remap_fields( @@ -81,8 +85,7 @@ sub submit { # => 'expdate', 'amount' => 'amount', - invoice_number => 'cust_id', - #customer_id => 'cust_id', + customer_id => 'cust_id', order_number => 'order_id', # must be unique number authorization => 'txn_number' # reference to previous trans @@ -121,6 +124,8 @@ sub submit { $self->generate_order_id; + $self->{_content}{order_id} .= '-'. ($invoice_number || 0); + $self->{_content}{amount} = sprintf('%.2f', $self->{_content}{amount} ); } elsif ( $action =~ /^(completion|purchasecorrection|refund)$/ ) {