diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2021-03-17 19:28:03 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2021-03-17 19:28:03 -0700 |
| commit | 9ebca80fb935533c0d9df44eb8a44a631f834d31 (patch) | |
| tree | 142f2eaa40aa4879207306962e2fea51b83c07ea /FS/FS/deploy_zone.pm | |
| parent | 88ff3788c3f398f7cb801971804e90f0360854c2 (diff) | |
disable fcc 477 deployment zones, RT#85668
Diffstat (limited to 'FS/FS/deploy_zone.pm')
| -rw-r--r-- | FS/FS/deploy_zone.pm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/FS/FS/deploy_zone.pm b/FS/FS/deploy_zone.pm index 306b4fb..723b491 100644 --- a/FS/FS/deploy_zone.pm +++ b/FS/FS/deploy_zone.pm @@ -187,8 +187,15 @@ returns the error, otherwise returns false. =cut -# the replace method can be inherited from FS::Record +sub replace { + my $self = shift; + my $old = shift || $self->replace_old; + + $self->expire_date(time) + if $self->disabled eq 'Y' && ! $old->disabled && ! $self->expire_date; + $self->SUPER::replace($old, @_); +} =item check Checks all fields to make sure this is a valid zone record. If there is |