accept empty zips for non-US countries...
authorivan <ivan>
Fri, 30 Apr 2004 21:58:15 +0000 (21:58 +0000)
committerivan <ivan>
Fri, 30 Apr 2004 21:58:15 +0000 (21:58 +0000)
FS/FS/Record.pm

index 801b89d..dd87e5a 100644 (file)
@@ -1307,9 +1307,13 @@ sub ut_zip {
                 $self->getfield($field);
     $self->setfield($field,$1);
   } else {
-    $self->getfield($field) =~ /^\s*(\w[\w\-\s]{2,8}\w)\s*$/
-      or return gettext('illegal_zip'). " $field: ". $self->getfield($field);
-    $self->setfield($field,$1);
+    if ( $self->getfield($field) =~ /^\s*$/ ) {
+      $self->setfield($field,'');
+    } else {
+      $self->getfield($field) =~ /^\s*(\w[\w\-\s]{2,8}\w)\s*$/
+        or return gettext('illegal_zip'). " $field: ". $self->getfield($field);
+      $self->setfield($field,$1);
+    }
   }
   '';
 }