projects
/
Business-OnlinePayment-PayflowPro.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
3f274c8
)
- zip now allows alphanumerics for non-US zips
author
plobbes
<plobbes>
Fri, 2 Mar 2007 01:13:55 +0000
(
01:13
+0000)
committer
plobbes
<plobbes>
Fri, 2 Mar 2007 01:13:55 +0000
(
01:13
+0000)
Changes
patch
|
blob
|
history
PayflowPro.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index
db329c2
..
e88ab9f
100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,5
+1,8
@@
Revision history for Perl extension Business::OnlinePayment::PayflowPro.
Revision history for Perl extension Business::OnlinePayment::PayflowPro.
+0.06 Thu Mar 1 10:01:33 EST 2007
+ - zip now allows alphanumerics for non-US zips
+
0.05 Mon Jan 22 00:58:04 EST 2007
[Jan 22 2007 by Phil Lobbes <phil at perkpartners.com>]
- Test cases: new tests and cleanup of existing tests
0.05 Mon Jan 22 00:58:04 EST 2007
[Jan 22 2007 by Phil Lobbes <phil at perkpartners.com>]
- Test cases: new tests and cleanup of existing tests
diff --git
a/PayflowPro.pm
b/PayflowPro.pm
index
b8415b9
..
576aabc
100644
(file)
--- a/
PayflowPro.pm
+++ b/
PayflowPro.pm
@@
-8,7
+8,7
@@
use base qw(Business::OnlinePayment);
# Payflow Pro SDK
use PFProAPI qw( pfpro );
# Payflow Pro SDK
use PFProAPI qw( pfpro );
-$VERSION = '0.0
5
';
+$VERSION = '0.0
6
';
$VERSION = eval $VERSION;
sub set_defaults {
$VERSION = eval $VERSION;
sub set_defaults {
@@
-104,7
+104,7
@@
sub submit {
$month = '0' . $month if $month =~ /^\d$/;
}
$month = '0' . $month if $month =~ /^\d$/;
}
- ( $zip = $content{'zip'} ) =~ s/
\D
//g;
+ ( $zip = $content{'zip'} ) =~ s/
[^[:alnum:]]
//g;
$self->server('test-payflow.verisign.com') if $self->test_transaction;
$self->server('test-payflow.verisign.com') if $self->test_transaction;
@@
-135,7
+135,7
@@
sub submit {
STREET => 'address',
CITY => 'city',
STATE => 'state',
STREET => 'address',
CITY => 'city',
STATE => 'state',
- ZIP => \$zip, # 'zip' with non-
number
s removed
+ ZIP => \$zip, # 'zip' with non-
alnum
s removed
COUNTRY => 'country',
);
COUNTRY => 'country',
);
@@
-375,7
+375,7
@@
from content(%content):
STREET => 'address',
CITY => 'city',
STATE => 'state',
STREET => 'address',
CITY => 'city',
STATE => 'state',
- ZIP => \$zip, # 'zip' with non-
number
s removed
+ ZIP => \$zip, # 'zip' with non-
alphanumeric
s removed
COUNTRY => 'country',
The required Payflow Pro parameters for credit card transactions are:
COUNTRY => 'country',
The required Payflow Pro parameters for credit card transactions are: