diff options
| author | jeff <jeff> | 2006-10-25 02:22:33 +0000 |
|---|---|---|
| committer | jeff <jeff> | 2006-10-25 02:22:33 +0000 |
| commit | c84d872fdca241d798cc988b44c63d5ac0ea8ead (patch) | |
| tree | 64d81be3eb8c843e134501da355af4fec612d798 /FS/FS/part_svc.pm | |
| parent | df4a30e2813c3be288747cd2a5fa2fa3ed15a248 (diff) | |
limited domain select
Diffstat (limited to 'FS/FS/part_svc.pm')
| -rw-r--r-- | FS/FS/part_svc.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 2587347..fc5258f 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -544,6 +544,12 @@ sub process { $param->{ $svcdb.'__'.$_ } = delete( $param->{ $svcdb.'__'.$_.'_classnum' } ); } + if ( $param->{ $svcdb.'__'.$_.'_flag' } =~ /^S$/ ) { + $param->{ $svcdb.'__'.$_} = + ref($param->{ $svcdb.'__'.$_}) + ? join(',', @{$param->{ $svcdb.'__'.$_ }} ) + : $param->{ $svcdb.'__'.$_ }; + } ( $svcdb.'__'.$_, $svcdb.'__'.$_.'_flag' ); } @fields; |