summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2015-08-18 10:13:29 -0700
committerIvan Kohler <ivan@freeside.biz>2015-08-18 10:13:29 -0700
commit4f22d262976afe19a2acdb92e5691f0c15755de5 (patch)
tree22a0d593a2d4aa89dcf2fb3d732905fe290a26e6
parent109de1a8388fd8c9f77afd511199426da05f1bf3 (diff)
Pass invoice_number as Cf1 and customer_id as Cf2
-rw-r--r--Changes3
-rw-r--r--lib/Business/OnlinePayment/vSecureProcessing.pm15
2 files changed, 11 insertions, 7 deletions
diff --git a/Changes b/Changes
index e8330ec..4333727 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
Revision history for Perl module Business::OnlinePayment::vSecureProcessing
+0.08 Tue Aug 18 10:03:34 PDT 2015
+ - Pass invoice_number as Cf1 and customer_id as Cf2
+
0.07 Fri Aug 7 20:04:27 PDT 2015
- Immediately void partial auth by default
diff --git a/lib/Business/OnlinePayment/vSecureProcessing.pm b/lib/Business/OnlinePayment/vSecureProcessing.pm
index 696da87..6744e25 100644
--- a/lib/Business/OnlinePayment/vSecureProcessing.pm
+++ b/lib/Business/OnlinePayment/vSecureProcessing.pm
@@ -11,7 +11,7 @@ use Business::OnlinePayment::HTTPS;
@ISA = qw(Business::OnlinePayment::HTTPS);
$DEBUG = 0;
-$VERSION = '0.07';
+$VERSION = '0.08';
sub _info {
'info_compat' => '0.01',
@@ -228,8 +228,8 @@ sub submit {
Trk1 => ($content{'track1'}) ? $content{'track1'} : '',
Trk2 => ($content{'track2'}) ? $content{'track2'} : '',
TypeOfSale => ($content{'description'}) ? $content{'description'} : '',
- Cf1 => ($content{'UDField1'}) ? $content{'UDField1'} : '',
- Cf2 => ($content{'UDField2'}) ? $content{'UDField2'} : '',
+ Cf1 => ($content{'invoice_number'}) ? $content{'invoice_number'} : '',
+ Cf2 => ($content{'customer_id'}) ? $content{'customer_id'} : '',
Cf3 => '',
AccountNumber => ($content{'card_number'}) ? $content{'card_number'} : '',
ExpirationMonth => $content{'exp_month'},
@@ -521,8 +521,8 @@ from content(%content):
Amount => 'amount'
AvsStreet => 'address',
AvsZip => 'zip',
- Cf1 => 'UDField1',
- Cf2 => 'UDField2',
+ Cf1 => 'invoice_number',
+ Cf2 => 'customer_id',
IndustryType => 'IndustryInfo',
=head1 NOTE
@@ -553,8 +553,9 @@ the same terms as Perl itself.
Need a complete, open-source back-office and customer self-service solution?
The Freeside software includes support for credit card and electronic check
-processing with vSecureProcessing and over 50 other gateways, invoicing, integrated
-trouble ticketing, and customer signup and self-service web interfaces.
+processing with vSecureProcessing and over 60 other gateways, invoicing,
+integrated trouble ticketing, and customer signup and self-service web
+interfaces.
http://freeside.biz/freeside/