2 name_singular => 'tower',
4 viewall_dir => 'browse',
5 fields => [ 'towername',
6 { field=>'disabled', type=>'checkbox', value=>'Y', },
7 { field=>'color', type=>'pickcolor' },
8 { field => 'default_ip_addr',
9 curr_value_callback => $default_ip_addr_callback },
15 # { field => 'sectornum',
16 # type => 'tower_sector',
17 # o2m_table => 'tower_sector',
18 # m2_label => 'Sector',
19 # m2_error_callback => $m2_error_callback,
21 { type => 'tower_sectors',
23 # does its own o2m-thing
26 labels => { 'towernum' => 'Tower',
27 'towername' => 'Name',
28 'sectornum' => 'Sector',
29 'disabled' => 'Disabled',
30 'default_ip_addr' => 'Tower IP address',
31 'latitude' => 'Latitude',
32 'longitude' => 'Longitude',
33 'altitude' => 'Altitude (feet)',
34 'height' => 'Tower height (feet)',
35 'veg_height' => 'Vegetation height (feet)',
41 my $m2_error_callback = sub { # reconstruct the list
42 my ($cgi, $object) = @_;
45 sectorname ip_addr height freq_mhz direction width tilt v_width db_high db_low sector_range
50 new FS::tower_sector {
51 'towernum' => $object->towernum,
52 'sectornum' => scalar( $cgi->param($k) ),
53 map { $_ => scalar( $cgi->param($k.'_'.$_) ) } @fields,
55 } grep length($cgi->param($_.'_sectorname')),
56 grep /^sectornum\d+$/,
60 my $default_ip_addr_callback = sub {
61 my ($cgi, $object) = @_;
62 my $sector = $object ? $object->default_sector : '';
63 $sector ? $sector->ip_addr : '';