X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fsector_coverage-json.cgi;fp=httemplate%2Fmisc%2Fsector_coverage-json.cgi;h=9fd08d7db9ca537c2769ad68323a06a4114adee6;hp=0000000000000000000000000000000000000000;hb=227953e3a6ee41683ea06b3f440946d4007898c3;hpb=41f3ac8d2ba5faada6c6972aff72bff18c4aeb5f

diff --git a/httemplate/misc/sector_coverage-json.cgi b/httemplate/misc/sector_coverage-json.cgi
new file mode 100644
index 000000000..9fd08d7db
--- /dev/null
+++ b/httemplate/misc/sector_coverage-json.cgi
@@ -0,0 +1,40 @@
+<% encode_json($collection) %>
+<%init>
+my @sectors;
+if ( my $towernum = $cgi->param('towernum') ) {
+  @sectors = qsearch('tower_sector', { towernum => $towernum });
+} elsif ( my $sectornum = $cgi->param('sectornum') ) {
+  @sectors = FS::tower_sector->by_key($sectornum);
+} else {
+  die "towernum or sectornum required";
+}
+my @features;
+my $collection = {
+  type => 'FeatureCollection',
+  features => \@features,
+};
+foreach my $sector (@sectors) {
+  my $sectornum = $sector->sectornum;
+  my $low = $sector->db_low;
+  my $high = $sector->db_high;
+  my $color = $sector->tower->color || 'green';
+  foreach my $coverage ( $sector->sector_coverage ) {
+    #note $coverage->geometry is already JSON
+    my $level = $coverage->db_loss;
+    push @features, {
+      type => 'Feature',
+      id => "sector/$sectornum/$level",
+      properties => {
+        level => $level,
+        low   => ($level == $low ? 1 : 0),
+        high  => ($level == $high ? 1 : 0),
+        style => {
+          strokeColor => $color,
+          fillColor => $color,
+        },
+      },
+      geometry => decode_json($coverage->geometry),
+    };
+  }
+}
+</%init>