viewall_dir => 'browse',
fields => [ 'towername',
{ field=>'disabled', type=>'checkbox', value=>'Y', },
+ { field => 'default_ip_addr',
+ curr_value_callback => $default_ip_addr_callback },
{ field => 'sectornum',
type => 'tower_sector',
o2m_table => 'tower_sector',
m2_label => 'Sector',
m2_error_callback => $m2_error_callback,
},
+ 'latitude',
+ 'longitude',
],
labels => { 'towernum' => 'Tower',
'towername' => 'Name',
'sectornum' => 'Sector',
'disabled' => 'Disabled',
+ 'default_ip_addr' => 'Tower IP address',
+ 'latitude' => 'Latitude',
+ 'longitude' => 'Longitude',
},
&>
<%init>
} grep /^sectornum\d+$/, ($cgi->param);
};
+my $default_ip_addr_callback = sub {
+ my ($cgi, $object) = @_;
+ my $sector = $object ? $object->default_sector : '';
+ $sector ? $sector->ip_addr : '';
+};
+
</%init>