1 <% encode_json($collection) %>
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);
9 die "towernum or sectornum required";
13 type => 'FeatureCollection',
14 features => \@features,
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;
26 id => "sector/$sectornum/$level",
29 low => ($level == $low ? 1 : 0),
30 high => ($level == $high ? 1 : 0),
32 strokeColor => $color,
36 geometry => decode_json($coverage->geometry),