httemplate/misc/sector_coverage-json.cgi

   1 <% encode_json($collection) %>
   2 <%init>
   3 my @sectors;
   4 if ( my $towernum = $cgi->param('towernum') ) {
   5   @sectors = qsearch('tower_sector', { towernum => $towernum });
   6 } elsif ( my $sectornum = $cgi->param('sectornum') ) {
   7   @sectors = FS::tower_sector->by_key($sectornum);
   8 } else {
   9   die "towernum or sectornum required";
  10 }
  11 my @features;
  12 my $collection = {
  13   type => 'FeatureCollection',
  14   features => \@features,
  15 };
  16 foreach my $sector (@sectors) {
  17   my $sectornum = $sector->sectornum;
  18   my $low = $sector->db_low;
  19   my $high = $sector->db_high;
  20   my $color = '#' . ($sector->tower->color || 'ffffff');
  21   foreach my $coverage ( $sector->sector_coverage ) {
  22     #note $coverage->geometry is already JSON
  23     my $level = $coverage->db_loss;
  24     push @features, {
  25       type => 'Feature',
  26       id => "sector/$sectornum/$level",
  27       properties => {
  28         level => $level,
  29         low   => ($level == $low ? 1 : 0),
  30         high  => ($level == $high ? 1 : 0),
  31         style => {
  32           strokeColor => $color,
  33           fillColor => $color,
  34         },
  35       },
  36       geometry => decode_json($coverage->geometry),
  37     };
  38   }
  39 }
  40 </%init>