projects
/
Business-OnlinePayment-IPPay.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
set UDField3 per IPPay request
[Business-OnlinePayment-IPPay.git]
/
IPPay.pm
diff --git
a/IPPay.pm
b/IPPay.pm
index
4960483
..
f396076
100644
(file)
--- 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);
use vars qw($VERSION $DEBUG @ISA $me);
@ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.0
8
';
+$VERSION = '0.0
9_01
';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
@@
-366,7
+366,7
@@
sub submit {
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
- UDField3 => 'UDField3',
+ UDField3 =>
\"$me $VERSION", #
'UDField3',
ActionCode => 'ActionCode',
IndustryInfo => \%industryinfo,
ShippingInfo => \%shippinginfo,
ActionCode => 'ActionCode',
IndustryInfo => \%industryinfo,
ShippingInfo => \%shippinginfo,
@@
-588,7
+588,6
@@
from content(%content):
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
- UDField3 => 'UDField3',
ActionCode => 'ActionCode',
IndustryInfo
Type => 'IndustryInfo',
ActionCode => 'ActionCode',
IndustryInfo
Type => 'IndustryInfo',