allow two-digit zips
authorivan <ivan>
Fri, 18 Nov 2011 22:20:37 +0000 (22:20 +0000)
committerivan <ivan>
Fri, 18 Nov 2011 22:20:37 +0000 (22:20 +0000)
FS/FS/Record.pm

index ece3a16..4a5def6 100644 (file)
@@ -2636,7 +2636,7 @@ sub ut_zip {
     {
       $self->setfield($field,'');
     } else {
-      $self->getfield($field) =~ /^\s*(\w[\w\-\s]{2,8}\w)\s*$/
+      $self->getfield($field) =~ /^\s*(\w[\w\-\s]{0,8}\w)\s*$/
         or return gettext('illegal_zip'). " $field: ". $self->getfield($field);
       $self->setfield($field,$1);
     }