projects
/
Business-OnlinePayment-IPPay.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
UserIPAddr is now UserIPAddress
[Business-OnlinePayment-IPPay.git]
/
IPPay.pm
diff --git
a/IPPay.pm
b/IPPay.pm
index
4b94983
..
8060892
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.
09
';
+$VERSION = '0.
10
';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
@@
-359,7
+359,7
@@
sub submit {
BillingCountry => \$country,
BillingPhone => 'phone',
Email => 'email',
BillingCountry => \$country,
BillingPhone => 'phone',
Email => 'email',
- UserIPAddr
=> 'customer_ip',
+ UserIPAddr
ess
=> 'customer_ip',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
@@
-588,7
+588,7
@@
from content(%content):
BillingCountry => 'country', # forced to ISO-3166-alpha-3
BillingPhone => 'phone',
Email => 'email',
BillingCountry => 'country', # forced to ISO-3166-alpha-3
BillingPhone => 'phone',
Email => 'email',
- UserIPAddr
=> 'customer_ip',
+ UserIPAddr
ess
=> 'customer_ip',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',
UserHost => 'UserHost',
UDField1 => 'UDField1',
UDField2 => 'UDField2',