+ } grep length($cgi->param($_.'_sectorname')),
+ grep /^sectornum\d+$/,
+ ($cgi->param);
+};
+
+my $default_ip_addr_callback = sub {
+ my ($cgi, $object) = @_;
+ my $sector = $object ? $object->default_sector : '';
+ $sector ? $sector->ip_addr : '';