diff options
| author | khoff <khoff> | 2003-08-05 00:20:51 +0000 |
|---|---|---|
| committer | khoff <khoff> | 2003-08-05 00:20:51 +0000 |
| commit | 58d44fbe5eb9ab32e6d87063a4a3b22ddba9a828 (patch) | |
| tree | edf14524361cd9cf59c673dc85e85d130a979283 /FS/FS/part_svc_column.pm | |
| parent | f2ffe6fc096fa59b1931da531b7a40b78cd6b747 (diff) | |
Virtual field merge
Diffstat (limited to 'FS/FS/part_svc_column.pm')
| -rw-r--r-- | FS/FS/part_svc_column.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/FS/FS/part_svc_column.pm b/FS/FS/part_svc_column.pm index 37e841e..885155b 100644 --- a/FS/FS/part_svc_column.pm +++ b/FS/FS/part_svc_column.pm @@ -41,7 +41,7 @@ fields are currently supported: =item columnvalue - default or fixed value for the column -=item columnflag - null, D or F +=item columnflag - null, D, F, X (virtual fields) =back @@ -91,18 +91,18 @@ sub check { ; return $error if $error; - $self->columnflag =~ /^([DF])$/ + $self->columnflag =~ /^([DFX])$/ or return "illegal columnflag ". $self->columnflag; $self->columnflag(uc($1)); - ''; #no error + $self->SUPER::check; } =back =head1 VERSION -$Id: part_svc_column.pm,v 1.1 2001-09-07 20:49:15 ivan Exp $ +$Id: part_svc_column.pm,v 1.2 2003-08-05 00:20:44 khoff Exp $ =head1 BUGS |