diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-02-21 11:18:17 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-02-21 11:18:17 -0800 |
| commit | 3bea5a714e20b2a0970313018150246fc532b1b0 (patch) | |
| tree | dc59526487457a6a3e6ab6db7e319107435a09a6 /IPPay.pm | |
| parent | a5b53c10d1014b408075e2fe1cc31ea4042ecafc (diff) | |
set UDField3 per IPPay request
Diffstat (limited to 'IPPay.pm')
| -rw-r--r-- | IPPay.pm | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -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', |