From 3bea5a714e20b2a0970313018150246fc532b1b0 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Thu, 21 Feb 2013 11:18:17 -0800
Subject: [PATCH] set UDField3 per IPPay request

---
 Changes  | 3 +++
 IPPay.pm | 5 ++---
 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',
-- 
2.11.0