X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Ftower.html;h=fa3838dcf27a6902ab0a4130acb7e68b462c1dc7;hb=8c8872f684ccfa43dae290877c2cf8aed8828a9f;hp=c27d9d2559b929618d8e2caef93c0e6a3fe6b55b;hpb=e6f7e02b32ebaa471230819d36a88f88b98bed6a;p=freeside.git

diff --git a/httemplate/edit/tower.html b/httemplate/edit/tower.html
index c27d9d255..fa3838dcf 100644
--- a/httemplate/edit/tower.html
+++ b/httemplate/edit/tower.html
@@ -4,6 +4,14 @@
      viewall_dir   => 'browse',
      fields        => [ 'towername',
                         { field=>'disabled', type=>'checkbox', value=>'Y', },
+                        { field=>'color',    type=>'pickcolor' },
+                        { field               => 'default_ip_addr',
+                          curr_value_callback => $default_ip_addr_callback },
+                        'latitude',
+                        'longitude',
+                        'altitude',
+                        'height',
+                        'veg_height',
                         { field             => 'sectornum',
                           type              => 'tower_sector',
                           o2m_table         => 'tower_sector',
@@ -11,10 +19,17 @@
                           m2_error_callback => $m2_error_callback,
                         },
                       ],
-     labels        => { 'towernum'  => 'Tower',
-                        'towername' => 'Name',
-                        'sectornum' => 'Sector',
-                        'disabled'  => 'Disabled',
+     labels        => { 'towernum'        => 'Tower',
+                        'towername'       => 'Name',
+                        'sectornum'       => 'Sector',
+                        'disabled'        => 'Disabled',
+                        'default_ip_addr' => 'Tower IP address',
+                        'latitude'        => 'Latitude',
+                        'longitude'       => 'Longitude',
+                        'altitude'        => 'Altitude',
+                        'height'          => 'Height',
+                        'veg_height'      => 'Vegetation height',
+                        'color'           => 'Color',
                       },
 &>
 <%init>
@@ -22,16 +37,26 @@
 my $m2_error_callback = sub { # reconstruct the list
   my ($cgi, $object) = @_;
 
-  my @fields = qw(sectorname ip_addr);
+  my @fields = qw(
+    sectorname ip_addr height freq_mhz direction width sector_range
+  );
+
   map {
     my $k = $_;
-    next if !length($cgi->param($k.'_sectorname'));
     new FS::tower_sector {
       'towernum'  => $object->towernum,
       'sectornum' => scalar( $cgi->param($k) ),
       map { $_ => scalar( $cgi->param($k.'_'.$_) ) } @fields,
     };
-  } grep /^sectornum\d+$/, ($cgi->param);
+  } grep length($cgi->param($_.'_sectorname')),
+      grep /^sectornum\d+$/,
+        ($cgi->param);
+};
+
+my $default_ip_addr_callback = sub {
+  my ($cgi, $object) = @_;
+  my $sector = $object ? $object->default_sector : '';
+  $sector ? $sector->ip_addr : '';
 };
 
 </%init>