projects
/
Business-OnlinePayment-IPPay.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
require password
[Business-OnlinePayment-IPPay.git]
/
IPPay.pm
diff --git
a/IPPay.pm
b/IPPay.pm
index
f396076
..
3d1582d
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_0
1
';
+$VERSION = '0.09_0
2
';
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
$VERSION = eval $VERSION; # modperlstyle: convert the string into a number
$DEBUG = 0;
@@
-177,7
+177,7
@@
sub submit {
$self->is_success(0);
$self->map_fields();
$self->is_success(0);
$self->map_fields();
- my @required_fields = qw(action login type);
+ my @required_fields = qw(action login
password
type);
my $action = lc($self->{_content}->{action});
my $type = $self->transaction_type();
my $action = lc($self->{_content}->{action});
my $type = $self->transaction_type();