From c84d872fdca241d798cc988b44c63d5ac0ea8ead Mon Sep 17 00:00:00 2001 From: jeff Date: Wed, 25 Oct 2006 02:22:33 +0000 Subject: limited domain select --- FS/FS/part_svc_column.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'FS/FS/part_svc_column.pm') diff --git a/FS/FS/part_svc_column.pm b/FS/FS/part_svc_column.pm index fb08eaa..d2b8fd9 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 or empty (no default), `D' for default, `F' for fixed (unchangeable), `M' for manual selection from inventory, or `A' for automatic selection from inventory. For virtual fields, can also be 'X' for excluded. +=item columnflag - null or empty (no default), `D' for default, `F' for fixed (unchangeable), `S' for selectable choice, `M' for manual selection from inventory, or `A' for automatic selection from inventory. For virtual fields, can also be 'X' for excluded. =back @@ -91,7 +91,7 @@ sub check { ; return $error if $error; - $self->columnflag =~ /^([DFMAX])$/ + $self->columnflag =~ /^([DFSMAX])$/ or return "illegal columnflag ". $self->columnflag; $self->columnflag(uc($1)); -- cgit v1.1