+ }
+
+ ## if option t, then update tower/sector for service.
+ if ($opt_a) {
+ warn ("Getting tower/sector for service ".$service->description."(".$service->svcnum.") from sibling service of package ".$service->pkgnum) if $opt_v;
+ my $tower_sector;
+ my $sibling_service = qsearchs({
+ 'select' => 'svc_broadband.*, cust_svc.svcpart',
+ 'table' => 'svc_broadband',
+ 'addl_from' => ' LEFT JOIN cust_svc USING ( svcnum )',
+ 'extra_sql' => ' WHERE cust_svc.pkgnum = '.$service->pkgnum.' AND cust_svc.svcpart = '.$opt_c.' AND svc_broadband.sectornum IS NOT NULL',
+ }) if $opt_c;
+ $tower_sector = $sibling_service->sectornum if $sibling_service;
+ $tower_sector = $opt_t if (!$tower_sector && $opt_t);
+ $service->set('sectornum', $tower_sector) if $tower_sector;
+ }