1 <& elements/svc_Common.html,
2 table => 'svc_broadband',
8 my $conf = FS::Conf->new;
9 my $fields = FS::svc_broadband->table_info->{'fields'};
10 my %labels = map { $_ => ( ref($fields->{$_})
11 ? $fields->{$_}{'label'}
18 $labels{'description'} = emt('Description');
19 $labels{'router'} = emt('Router');
20 $labels{'speed_down'} = emt('Download Speed');
21 $labels{'speed_up'} = emt('Upload Speed');
22 $labels{'ip_addr'} = emt('IP Address');
23 $labels{'usergroup'} = emt('RADIUS groups'); #?
25 $labels{'coordinates'} = 'Latitude/Longitude';
29 { field => 'router', value => \&router },
32 { field => 'ip_addr', value => \&ip_addr },
33 { field => 'sectornum', value => \§ornum },
37 { field => 'coordinates', value => \&coordinates },
45 { field => 'usergroup', value => \&usergroup }
46 if $conf->exists('svc_broadband-radius');
50 my $addr_block = $svc->addr_block or return '';
51 my $router = $addr_block->router or return '';
52 $router->routernum . ': ' . $router->routername;
57 my $ip_addr = $svc->ip_addr;
59 $out .= ' (' . include('/elements/popup_link-ping.html', ip => $ip_addr) . ')'
61 if ( my $addr_block = $svc->addr_block ) {
62 $out .= '<br>Netmask: ' . $addr_block->NetAddr->mask .
63 '<br>Gateway: ' . $addr_block->ip_gateway;
70 my $usergroup = $svc->usergroup;
71 join('<BR>', $svc->radius_groups('long_description'));
75 my $svc_broadband = shift;
76 return '' unless $svc_broadband->sectornum;
77 my $tower_sector = $svc_broadband->tower_sector;
78 my $link = $tower_sector->ip_addr
79 ? '<A HREF="http://'. $tower_sector->ip_addr. '">'
82 $link . $tower_sector->description. ( $link ? '</A>' : '');
86 my $s = shift; #$svc_broadband
87 return '' unless $s->latitude && $s->longitude;
89 my $d = $s->description;
91 my $cust_pkg = $s->cust_svc->cust_pkg;
92 $d = $cust_pkg->cust_main->name_short if $cust_pkg;
95 #'Latitude: '. $s->latitude. ', Longitude: '. $s->longitude. ' '.
96 $s->latitude. ', '. $s->longitude. ' '.
97 include('/elements/coord-links.html', $s->latitude, $s->longitude, $d);