1 <% include( 'elements/browse.html',
4 'menubar' => [ 'Add a new tower' =>
7 'query' => { 'table' => 'tower', },
8 'count_query' => 'SELECT COUNT(*) FROM tower',
10 'disabled_statuspos' => 1,
11 'header' => [ 'Name', 'Sectors', 'Coordinates'],
12 'fields' => [ $tower_sub,
22 unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
24 my $num_svc_links = sub {
25 my ($query_string, $sectors) = @_;
27 my $num_svc_broadband = FS::svc_broadband->count("sectornum IN($sectors)");
28 my $num_svc_acct = FS::svc_acct->count("sectornum IN($sectors)");
31 'data' => $num_svc_broadband ?
32 '<B>'.$num_svc_broadband.'</B>'.
35 'link' => $p.'search/svc_broadband.cgi?'.$query_string,
42 'data' => $num_svc_acct ?
43 '<B>'.$num_svc_acct.'</B>'.
46 'link' => $p.'search/svc_acct.cgi?magic=advanced;'.$query_string,
56 my $coords = $m->scomp("/elements/coord-links.html", $tower->latitude, $tower->longitude, $tower->towername);
60 { 'data' => "Latitude: " . $tower->latitude . "<br>Longitude: " . $tower->longitude, },
61 { 'data' => $coords, 'link' => "Coordinates", },
68 my $sectors = join(',',
69 map { $_->sectornum } $tower->tower_sector, $tower->default_sector
73 { 'data' => $tower->towername, },
74 { 'data' => ' (edit) ', size => '-1',
75 'link' => $p.'edit/tower.html?' . $tower->towernum },
77 # turn these into rows
79 &{$num_svc_links}( 'towernum='.$tower->towernum, $sectors )
83 my $sector_sub = sub {
89 my $sectornum = $sector->sectornum;
92 'data' => $sector->sectorname,
93 'link' => ( $sector->ip_addr ? 'http://'. $sector->ip_addr : '' ),
96 &{$num_svc_links}( 'sectornum='.$sectornum, $sectornum )
98 } $tower->tower_sector