fix manual_flag problem preventing cust_pkg editing
authorivan <ivan>
Fri, 26 Sep 2003 09:09:08 +0000 (09:09 +0000)
committerivan <ivan>
Fri, 26 Sep 2003 09:09:08 +0000 (09:09 +0000)
FS/FS/cust_pkg.pm

index 1bf56e1..d9a6385 100644 (file)
@@ -244,7 +244,9 @@ sub check {
   $self->otaker($1);
 
   if ( $self->dbdef_table->column('manual_flag') ) {
   $self->otaker($1);
 
   if ( $self->dbdef_table->column('manual_flag') ) {
-    $self->manual_flag =~ /^([01]?)$/ or return "Illegal manual_flag";
+    $self->manual_flag('') if $self->manual_flag eq ' ';
+    $self->manual_flag =~ /^([01]?)$/
+      or return "Illegal manual_flag ". $self->manual_flag;
     $self->manual_flag($1);
   }
 
     $self->manual_flag($1);
   }