diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-08-21 11:59:52 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-08-21 11:59:52 -0700 |
| commit | f1a879e6989d8d9687fd5033a46488e8b13448e1 (patch) | |
| tree | 7812a40970ccbbea0af0cd639c5379507988ebe1 /eSelectPlus.pm | |
| parent | eba22f02d42477d467b870179eb01cc752960c1d (diff) | |
cust_id: Use customer number instead of invoice number / order_id: Append "-invoice_num" per documentation
Diffstat (limited to 'eSelectPlus.pm')
| -rw-r--r-- | eSelectPlus.pm | 11 |
1 files changed, 8 insertions, 3 deletions
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)$/ ) { |