diff options
author | ivan <ivan> | 2006-06-24 16:41:45 +0000 |
---|---|---|
committer | ivan <ivan> | 2006-06-24 16:41:45 +0000 |
commit | 9608be1f5c73517fc348f1ab458892b34ed7facb (patch) | |
tree | 4b1e446078ba4bcfadcc826b83a0cf4a016ed985 /FS/FS/part_svc_column.pm | |
parent | 8af88c7428552043516f529007645ab489b32063 (diff) |
Add the ability to link customer service definition fields to inventory
classes, with an "automatic/manual" flag. Add the ability for the web
interface to maintain these links. Start prettying up the service def.
edit in preparation for Bigger Changes.
Diffstat (limited to 'FS/FS/part_svc_column.pm')
-rw-r--r-- | FS/FS/part_svc_column.pm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/FS/FS/part_svc_column.pm b/FS/FS/part_svc_column.pm index 0450b35..fb08eaa 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, F, X (virtual fields) +=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. =back @@ -91,10 +91,16 @@ sub check { ; return $error if $error; - $self->columnflag =~ /^([DFX])$/ + $self->columnflag =~ /^([DFMAX])$/ or return "illegal columnflag ". $self->columnflag; $self->columnflag(uc($1)); + if ( $self->columnflag =~ /^[MA]$/ ) { + $error = + $self->ut_foreign_key( 'columnvalue', 'inventory_class', 'classnum' ); + return $error if $error; + } + $self->SUPER::check; } |