diff options
| author | ivan <ivan> | 2002-01-28 06:57:23 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2002-01-28 06:57:23 +0000 |
| commit | 1aa750eba2b9b73b4f09f28b9acd748ee3669bd4 (patch) | |
| tree | 08133c5572e09b75b3557b32335ad53d0668c6eb /FS/FS/part_svc.pm | |
| parent | b03df92e48df653460cb8b6034a06dd1de6f4095 (diff) | |
book closing schema changes
Diffstat (limited to 'FS/FS/part_svc.pm')
| -rw-r--r-- | FS/FS/part_svc.pm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 446d88c..41ee21d 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -231,6 +231,7 @@ sub check { $self->ut_numbern('svcpart') || $self->ut_text('svc') || $self->ut_alpha('svcdb') + || $self->ut_enum('disabled', [ '', 'Y' ] ) ; return $error if $error; @@ -262,9 +263,6 @@ sub check { # } # } - $self->disabled =~ /^(Y?)$/ or return "Illegal disabled: ". $self->disabled; - $self->disabled($1); - ''; #no error } @@ -301,7 +299,7 @@ sub all_part_svc_column { =head1 VERSION -$Id: part_svc.pm,v 1.8 2002-01-22 14:55:25 ivan Exp $ +$Id: part_svc.pm,v 1.9 2002-01-28 06:57:23 ivan Exp $ =head1 BUGS |