diff options
| author | plobbes <plobbes> | 2007-03-02 01:13:55 +0000 |
|---|---|---|
| committer | plobbes <plobbes> | 2007-03-02 01:13:55 +0000 |
| commit | 227b900b0cc756a7f16248ee26ea1d2a92e25bcb (patch) | |
| tree | 7dfa5441d1f5d57fd2a3cb195d971f87011a25da | |
| parent | 3f274c8db4116da8e5db9fc54ba79de77d48de24 (diff) | |
- zip now allows alphanumerics for non-US zips
| -rw-r--r-- | Changes | 3 | ||||
| -rw-r--r-- | PayflowPro.pm | 8 |
2 files changed, 7 insertions, 4 deletions
@@ -1,5 +1,8 @@ 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 diff --git a/PayflowPro.pm b/PayflowPro.pm index b8415b9..576aabc 100644 --- a/PayflowPro.pm +++ b/PayflowPro.pm @@ -8,7 +8,7 @@ use base qw(Business::OnlinePayment); # Payflow Pro SDK use PFProAPI qw( pfpro ); -$VERSION = '0.05'; +$VERSION = '0.06'; $VERSION = eval $VERSION; sub set_defaults { @@ -104,7 +104,7 @@ sub submit { $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; @@ -135,7 +135,7 @@ sub submit { STREET => 'address', CITY => 'city', STATE => 'state', - ZIP => \$zip, # 'zip' with non-numbers removed + ZIP => \$zip, # 'zip' with non-alnums removed COUNTRY => 'country', ); @@ -375,7 +375,7 @@ from content(%content): STREET => 'address', CITY => 'city', STATE => 'state', - ZIP => \$zip, # 'zip' with non-numbers removed + ZIP => \$zip, # 'zip' with non-alphanumerics removed COUNTRY => 'country', The required Payflow Pro parameters for credit card transactions are: |