From 49d9ea969069430ef3fe23e5b1ac3599e929bb04 Mon Sep 17 00:00:00 2001
From: Mark Wells <mark@freeside.biz>
Date: Mon, 10 Oct 2016 11:59:41 -0700
Subject: new tower/sector UI, mapping features, and network monitoring, #37802

---
 httemplate/browse/tower-map.html | 85 ++++++++++++++++++++++++++++++++++++++++
 httemplate/browse/tower.html     |  6 ++-
 2 files changed, 89 insertions(+), 2 deletions(-)
 create mode 100644 httemplate/browse/tower-map.html

(limited to 'httemplate/browse')

diff --git a/httemplate/browse/tower-map.html b/httemplate/browse/tower-map.html
new file mode 100644
index 000000000..62e08fcb5
--- /dev/null
+++ b/httemplate/browse/tower-map.html
@@ -0,0 +1,85 @@
+<& /elements/header.html, 'Towers and sectors' &>
+ 
+<script type="text/javascript">
+$(function() {
+  var toggles = $('ul.tower_sector_list input[type=checkbox]');
+  toggles.on('click', function() {
+    
+ 
+<& elements/gmap.html, features => \@features, overlays => \@overlays &>
+
+<& /elements/footer.html &>
+<%init>
+
+die "access denied" unless
+  $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my $conf = new FS::Conf;
+
+my @features; # geoJSON structure
+
+my %sectors;
+my %towers;
+my %tower_coord;
+my %tower_bounds;
+
+foreach my $tower (qsearch('towers', {})) {
+  my $towernum = $tower->towernum;
+  $towers{$towernum} = $tower;
+  next if !$tower->latitude or !$tower->longitude;
+
+  $tower_coord{$towernum} =
+  [ $tower->longitude + 0,
+    $tower->latitude + 0,
+    ($tower->altitude || 0) + 0,
+  ];
+
+  # should figure out bounds to include coverage areas
+
+  push @features,
+  {
+    id        => 'tower/'.$towernum,
+    geometry  => {
+      type        => 'Point',
+      coordinates => $tower_coord{$towernum},
+    },
+    properties => {
+      style     => {
+        icon => {
+          path        => undef,
+          url         => $fsurl.'images/jcartier-antenna-square-21x51.png',
+          anchor      => { x => 10, y => 4 }
+        },
+      },
+      content   => include('.tower', $tower),
+      bounds    => $tower_bounds{$towernum},
+    },
+  };
+
+  # XXX show sector coverage zones
+} # foreach $svc_broadband
+
+</%init>
+</%def>
+<%def .tower>
+% my $tower = shift;
+% my $can_edit = $FS::CurrentUser::CurrentUser->access_right('Configuration');
+<H3>
+% if ( $can_edit ) {
+%   # XXX open within the InfoWindow, or at least in a popup
+  <a target="_blank" href="<% $fsurl %>edit/tower.html?<% $tower->towernum %>">
+% }
+Tower #<% $tower->towernum %> | <% $tower->towername %>
+% if ( $can_edit ) {
+  </a>
+% }
+</H3>
+<ul class="tower_sector_list">
+% foreach my $sector ($tower->tower_sector) { # default sector?
+<li>
+<input type="checkbox" value="<% $sector->sectornum %>">
+<% $sector->sectorname %>
+</li>
+% }
+</ul>
+</%def>
diff --git a/httemplate/browse/tower.html b/httemplate/browse/tower.html
index 16e44c6c0..555b8a39f 100644
--- a/httemplate/browse/tower.html
+++ b/httemplate/browse/tower.html
@@ -3,8 +3,10 @@
   'name'        => 'towers',
   'menubar'     => [ 'Add a new tower' =>
                       $p.'edit/tower.html',
-                     'Sector coverage maps' =>
-                      $p.'search/sector.html',
+                     #'Sector coverage maps' =>
+                     # $p.'search/sector.html',
+                     'Tower map' =>
+                      $p.'search/tower-map.html',
                      'Download CSV for towercoverage.com' =>
                       $p.'misc/tower-export.html?format=tc'
                   ],
-- 
cgit v1.2.1