From 227b900b0cc756a7f16248ee26ea1d2a92e25bcb Mon Sep 17 00:00:00 2001
From: plobbes <plobbes>
Date: Fri, 2 Mar 2007 01:13:55 +0000
Subject: - zip now allows alphanumerics for non-US zips

---
 PayflowPro.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'PayflowPro.pm')

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:
-- 
cgit v1.2.1