diff options
author | mark <mark> | 2011-04-01 02:52:24 +0000 |
---|---|---|
committer | mark <mark> | 2011-04-01 02:52:24 +0000 |
commit | b65b8096089410001dfbcd35f9a56f9405b9f5f1 (patch) | |
tree | df16b0422007bd876bc969bdff857d8a510b0aca /FS/FS/part_svc.pm | |
parent | 19b0c403fbf697a1de92f12abc8a2104daca07bc (diff) |
svc_hardware and svc_dish, #11454
Diffstat (limited to 'FS/FS/part_svc.pm')
-rw-r--r-- | FS/FS/part_svc.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/part_svc.pm b/FS/FS/part_svc.pm index 164bad0..e15b225 100644 --- a/FS/FS/part_svc.pm +++ b/FS/FS/part_svc.pm @@ -53,6 +53,8 @@ L<FS::svc_domain>, and L<FS::svc_forward>, among others. =item disabled - Disabled flag, empty or `Y' +=item preserve - Preserve after cancellation, empty or 'Y' + =back =head1 METHODS @@ -381,6 +383,7 @@ sub check { || $self->ut_text('svc') || $self->ut_alpha('svcdb') || $self->ut_enum('disabled', [ '', 'Y' ] ) + || $self->ut_enum('preserve', [ '', 'Y' ] ) ; return $error if $error; @@ -758,7 +761,7 @@ sub process { map { my $f = $svcdb.'__'.$_; - if ( $param->{ $f.'_flag' } =~ /^[MA]$/ ) { + if ( $param->{ $f.'_flag' } =~ /^[MAH]$/ ) { $param->{ $f } = delete( $param->{ $f.'_classnum' } ); } if ( $param->{ $f.'_flag' } =~ /^S$/ ) { |