projects
/
Business-OnlinePayment-eSelectPlus.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
cust_id: Use customer number instead of invoice number / order_id: Append "-invoice_n...
[Business-OnlinePayment-eSelectPlus.git]
/
eSelectPlus.pm
diff --git
a/eSelectPlus.pm
b/eSelectPlus.pm
index
3357703
..
ebe0203
100644
(file)
--- 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);
use vars qw($VERSION $DEBUG @ISA);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
6
';
+$VERSION = '0.0
7
';
$DEBUG = 0;
sub set_defaults {
$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(
# BOP field => eSelectPlus field
#$self->map_fields();
$self->remap_fields(
@@
-81,8
+85,7
@@
sub submit {
# => 'expdate',
'amount' => 'amount',
# => '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
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->generate_order_id;
+ $self->{_content}{order_id} .= '-'. ($invoice_number || 0);
+
$self->{_content}{amount} = sprintf('%.2f', $self->{_content}{amount} );
} elsif ( $action =~ /^(completion|purchasecorrection|refund)$/ ) {
$self->{_content}{amount} = sprintf('%.2f', $self->{_content}{amount} );
} elsif ( $action =~ /^(completion|purchasecorrection|refund)$/ ) {