fix otaker regex
authorivan <ivan>
Wed, 8 Aug 2007 19:18:35 +0000 (19:18 +0000)
committerivan <ivan>
Wed, 8 Aug 2007 19:18:35 +0000 (19:18 +0000)
FS/FS/cust_pkg.pm

index 571bf0e..eca3af4 100644 (file)
@@ -437,7 +437,7 @@ sub check {
   }
 
   $self->otaker(getotaker) unless $self->otaker;
-  $self->otaker =~ /^([\w\.\-]{0,16})$/ or return "Illegal otaker";
+  $self->otaker =~ /^(\w{1,32})$/ or return "Illegal otaker";
   $self->otaker($1);
 
   if ( $self->dbdef_table->column('manual_flag') ) {