projects
/
Business-OnlinePayment-SecureHostingUPG.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
e68e783
)
depend on B:OP v3
master
author
ivan
<ivan>
Wed, 9 Jul 2008 19:08:02 +0000
(19:08 +0000)
committer
ivan
<ivan>
Wed, 9 Jul 2008 19:08:02 +0000
(19:08 +0000)
Changes
patch
|
blob
|
history
Makefile.PL
patch
|
blob
|
history
SecureHostingUPG.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
c8c5e61
..
1d6caf7
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,2
+1,6
@@
+0.04 unreleased
+ - haha oops, 0.01 tarball had 0.3 $VERSION
+ - depend on B:OP v3
+
0.01 Mon Dec 27 03:00:58 2004
- original version; created by ivan 1.0
0.01 Mon Dec 27 03:00:58 2004
- original version; created by ivan 1.0
diff --git
a/Makefile.PL
b/Makefile.PL
index
f62e54c
..
4045d22
100644
(file)
--- a/
Makefile.PL
+++ b/
Makefile.PL
@@
-7,7
+7,7
@@
WriteMakefile(
'AUTHOR' => 'Ivan Kohler <ivan-securehostingupg@420.am>',
#'NORECURS' => 1, # dont descend into subdirectories
'PREREQ_PM' => {
'AUTHOR' => 'Ivan Kohler <ivan-securehostingupg@420.am>',
#'NORECURS' => 1, # dont descend into subdirectories
'PREREQ_PM' => {
- 'Business::OnlinePayment' =>
0
,
+ 'Business::OnlinePayment' =>
3
,
# for HTTPS (maybe it should be a separate dist?)
'URI::Escape' => 0,
# for HTTPS (maybe it should be a separate dist?)
'URI::Escape' => 0,
diff --git
a/SecureHostingUPG.pm
b/SecureHostingUPG.pm
index
2ab6d1e
..
e0ca796
100644
(file)
--- a/
SecureHostingUPG.pm
+++ b/
SecureHostingUPG.pm
@@
-7,7
+7,7
@@
use Business::OnlinePayment::HTTPS;
use vars qw($VERSION $DEBUG @ISA);
\r
\r
@ISA = qw(Business::OnlinePayment::HTTPS);
\r
use vars qw($VERSION $DEBUG @ISA);
\r
\r
@ISA = qw(Business::OnlinePayment::HTTPS);
\r
-$VERSION = '0.0
3
';
\r
+$VERSION = '0.0
4
';
\r
$DEBUG = 0;
\r
\r
sub set_defaults {
\r
$DEBUG = 0;
\r
\r
sub set_defaults {
\r
@@
-78,7
+78,7
@@
sub submit {
\r
#cardstartmonth & cardstartyear
\r
$self->{_content}{'card_start'} =~ /^(\d+)\D+\d*(\d{2})$/
\r
\r
#cardstartmonth & cardstartyear
\r
$self->{_content}{'card_start'} =~ /^(\d+)\D+\d*(\d{2})$/
\r
- or croak "unparsable card_start ". $self->{_content}{
expiration
};
\r
+ or croak "unparsable card_start ". $self->{_content}{
card_start
};
\r
my( $smonth, $syear ) = ( $1, $2 );
\r
$smonth = '0'. $smonth if $smonth =~ /^\d$/;
\r
$self->{_content}{cardstartmonth} = $smonth;
\r
my( $smonth, $syear ) = ( $1, $2 );
\r
$smonth = '0'. $smonth if $smonth =~ /^\d$/;
\r
$self->{_content}{cardstartmonth} = $smonth;
\r