summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Changes3
-rw-r--r--IPPay.pm5
2 files changed, 5 insertions, 3 deletions
diff --git a/Changes b/Changes
index d7491f5..4301ab5 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension Business::OnlinePayment::IPPay.
+0.09 unreleased
+ - Tag transactions with module name per IPPay request
+
0.08 Fri Dec 14 12:54:14 PST 2012
- Pass ACH account type
diff --git a/IPPay.pm b/IPPay.pm
index 4960483..f396076 100644
--- a/IPPay.pm
+++ b/IPPay.pm
@@ -11,7 +11,7 @@ use Business::OnlinePayment::HTTPS;
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.08';
+$VERSION = '0.09_01';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
@@ -366,7 +366,7 @@ sub submit {
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
- UDField3 => 'UDField3',
+ UDField3 => \"$me $VERSION", #'UDField3',
ActionCode => 'ActionCode',
IndustryInfo => \%industryinfo,
ShippingInfo => \%shippinginfo,
@@ -588,7 +588,6 @@ from content(%content):
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
- UDField3 => 'UDField3',
ActionCode => 'ActionCode',
IndustryInfo
Type => 'IndustryInfo',