From 20961c94ea06ad3aa71fad2bd7f6903f83f02ebc Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Wed, 17 Mar 2021 19:28:00 -0700
Subject: [PATCH] disable fcc 477 deployment zones, RT#85668

---
 FS/FS/Schema.pm                        | 1 +
 FS/FS/deploy_zone.pm                   | 9 ++++++++-
 httemplate/browse/deploy_zone.html     | 4 ++++
 httemplate/edit/deploy_zone-fixed.html | 6 ++++++
 4 files changed, 19 insertions(+), 1 deletion(-)

diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm
index 569401b1d..4ebda4e11 100644
--- a/FS/FS/Schema.pm
+++ b/FS/FS/Schema.pm
@@ -7450,6 +7450,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 306b4fb44..723b491c8 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
diff --git a/httemplate/browse/deploy_zone.html b/httemplate/browse/deploy_zone.html
index a1bd57f15..5514d7db8 100644
--- a/httemplate/browse/deploy_zone.html
+++ b/httemplate/browse/deploy_zone.html
@@ -61,6 +61,8 @@
   nohtmlheader    => 1,
   disable_maxselect => 1,
   disable_total     => 1,
+  disableable       => 1,
+  disabled_statuspos => 2,
 &>
 <P><FONT SIZE="+1"><B>Mobile Zones</B></FONT></P>
 <& elements/browse.html,
@@ -112,6 +114,8 @@
   nohtmlheader    => 1,
   disable_maxselect => 1,
   disable_total     => 1,
+  disableable       => 1,
+  disabled_statuspos => 2,
 &>
 
 <& /elements/footer.html &>
diff --git a/httemplate/edit/deploy_zone-fixed.html b/httemplate/edit/deploy_zone-fixed.html
index 24e03b01a..ce98c46e8 100644
--- a/httemplate/edit/deploy_zone-fixed.html
+++ b/httemplate/edit/deploy_zone-fixed.html
@@ -4,6 +4,7 @@
     'post_url'      => popurl(1).'process/deploy_zone-fixed.html',
     'viewall_dir'   => 'browse',
     'labels'        => {
+        'zonenum'         => 'Deployment zone',
         'description'     => 'Description',
         'agentnum'        => 'Agent',
         'dbaname'         => 'Business name (if different from agent)',
@@ -14,6 +15,7 @@
         'cir_speed_down'  => 'Downstream',
         'is_consumer'     => 'Consumer/mass market',
         'is_business'     => 'Business/government',
+        'disabled'        => 'Disabled',
         'blocknum'        => '',
         'active_date'     => 'Active since',
         'file'            => 'Import blocks from text file',
@@ -37,6 +39,9 @@
             $cgi->param('active_date') || $object->active_date || time;
           },
         },
+        { field         => 'expire_date',
+          type          => 'hidden',
+        },
         { field         => 'agentnum',
           type          => 'select-agent',
           disable_empty => 1,
@@ -50,6 +55,7 @@
         },
         { field         => 'is_consumer', type => 'checkbox', value=>'Y' },
         { field         => 'is_business', type => 'checkbox', value=>'Y' },
+        { field         => 'disabled', type=>'checkbox', value=>'Y', },
         { type => 'tablebreak-tr-title',
           value => 'Advertised maximum speed (Mbps)' },
         'adv_speed_down',
-- 
2.11.0