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 | |
| parent | 88ff3788c3f398f7cb801971804e90f0360854c2 (diff) | |
disable fcc 477 deployment zones, RT#85668
Diffstat (limited to 'FS/FS')
| -rw-r--r-- | FS/FS/Schema.pm | 1 | ||||
| -rw-r--r-- | FS/FS/deploy_zone.pm | 9 |
2 files changed, 9 insertions, 1 deletions
diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index bbd89f2..40b9129 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -7334,6 +7334,7 @@ sub tables_hashref { 'is_business', 'char', 'NULL', 1, '', '', 'active_date', @date_type, '', '', 'expire_date', @date_type, '', '', + 'disabled', 'char', 'NULL', 1, '', '', ], 'primary_key' => 'zonenum', 'unique' => [], 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 |