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

index 72754d0..746cb59 100644 (file)
@@ -2468,7 +2468,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);
     }