2 name_singular => 'tower',
4 viewall_dir => 'browse',
5 html_init => include('/elements/mapselect.html'),
6 fields => [ 'towername',
7 { field=>'disabled', type=>'checkbox', value=>'Y', },
8 { field=>'color', type=>'pickcolor' },
9 { field => 'default_ip_addr',
10 curr_value_callback => $default_ip_addr_callback },
18 # { field => 'sectornum',
19 # type => 'tower_sector',
20 # o2m_table => 'tower_sector',
21 # m2_label => 'Sector',
22 # m2_label_callback => sub { 'Sector #'.shift->sectornum; },
23 # m2_error_callback => $m2_error_callback,
25 { type => 'tower_sectors',
27 # does its own o2m-thing
30 labels => { 'towernum' => 'Tower',
31 'towername' => 'Name',
32 'sectornum' => 'Sector',
33 'disabled' => 'Disabled',
34 'default_ip_addr' => 'Tower IP address',
35 'latitude' => 'Latitude',
36 'longitude' => 'Longitude',
37 'altitude' => 'Altitude (feet)',
38 'height' => 'Tower height (feet)',
39 'veg_height' => 'Vegetation height (feet)',
41 'up_rate_limit' => 'Up Rate Limit(Kbps)',
42 'down_rate_limit' => 'Down Rate Limit(Kbps)',
47 my $m2_error_callback = sub { # reconstruct the list
48 my ($cgi, $object) = @_;
51 sectorname ip_addr height freq_mhz direction width tilt v_width db_high db_low sector_range up_rate_limit down_rate_limit
55 foreach my $k ($cgi->param) {
56 if ($k =~ /^sectornum\d+$/) {
57 my $sectornum = $cgi->param($k);
58 my $sector = FS::tower_sector->new({
59 'sectornum' => $sectornum,
60 'towernum' => $object->towernum,
61 map { $_ => scalar($cgi->param($k.'_'.$_)) } @fields,
63 push @sectors, $sector if length($sector->sectorname) && $sector->sectorname ne '_default';
70 my $default_ip_addr_callback = sub {
71 my ($cgi, $object) = @_;
72 my $sector = $object ? $object->default_sector : '';
73 $sector ? $sector->ip_addr : '';