2 use base qw( FS::o2m_Common FS::Record );
5 use List::Util qw( max );
6 use FS::Record qw( qsearch qsearchs );
11 FS::tower - Object methods for tower records
17 $record = new FS::tower \%hash;
18 $record = new FS::tower { 'column' => 'value' };
20 $error = $record->insert;
22 $error = $new_record->replace($old_record);
24 $error = $record->delete;
26 $error = $record->check;
30 An FS::tower object represents a tower. FS::tower inherits from
31 FS::Record. The following fields are currently supported:
45 Disabled flag, empty or 'Y'
49 Up Rate limit for towner
53 Down Rate limit for tower
63 Creates a new tower. To add the tower to the database, see L<"insert">.
65 Note that this stores the hash reference, not a distinct copy of the hash it
66 points to. You can ask the object for a copy with the I<hash> method.
70 sub table { 'tower'; }
74 Adds this record to the database. If there is an error, returns the error,
75 otherwise returns false.
79 Delete this record from the database.
81 =item replace OLD_RECORD
83 Replaces the OLD_RECORD with this one in the database. If there is an error,
84 returns the error, otherwise returns false.
90 my $old = shift || $self->replace_old;
91 # editing the tower location needs to regenerate coverage on its sectors
92 my $regen_coverage = 0;
93 foreach (qw(latitude longitude height)) {
94 $regen_coverage = 1 if $self->get($_) != $old->get($_);
97 my $error = $self->SUPER::replace($old);
98 return $error if $error;
100 if ($regen_coverage) {
101 foreach my $sector ($self->tower_sector) {
102 $sector->queue_generate_coverage;
109 Checks all fields to make sure this is a valid tower. If there is
110 an error, returns the error, otherwise returns false. Called by the insert
119 $self->ut_numbern('towernum')
120 || $self->ut_text('towername')
121 || $self->ut_enum('disabled', [ '', 'Y' ])
122 || $self->ut_coordn('latitude')
123 || $self->ut_coordn('longitude')
124 || $self->ut_enum('coord_auto', [ '', 'Y' ])
125 || $self->ut_floatn('altitude')
126 || $self->ut_floatn('height')
127 || $self->ut_floatn('veg_height')
128 || $self->ut_alphan('color')
129 || $self->ut_numbern('up_rate_limit')
130 || $self->ut_numbern('down_rate_limit')
132 return $error if $error;
139 Returns the default sector.
145 qsearchs('tower_sector', { towernum => $self->towernum,
146 sectorname => '_default' });
151 Returns the sectors of this tower, as FS::tower_sector objects (see
152 L<FS::tower_sector>), except for the default sector.
159 'table' => 'tower_sector',
160 'hashref' => { 'towernum' => $self->towernum,
161 'sectorname' => { op => '!=', value => '_default' },
163 'order_by' => 'ORDER BY sectorname',
169 Wrapper for the default method (see L<FS::o2m_Common>) to manage the
177 my $params = +{ %{$opt{params}} };
179 # Adjust to make sure our default sector is in the list.
180 my $default_sector = $self->default_sector
181 or warn "creating default sector for tower ".$self->towernum."\n";
182 my $idx = max(0, map { $_ =~ /^sectornum(\d+)$/ ? $1 : 0 } keys(%$params));
183 $idx++; # append to the param list
184 my $prefix = "sectornum$idx";
185 # empty sectornum will create the default sector if it doesn't exist yet
186 $params->{$prefix} = $default_sector ? $default_sector->sectornum : '';
187 $params->{$prefix.'_sectorname'} = '_default';
188 $params->{$prefix.'_ip_addr'} = $params->{'default_ip_addr'} || '';
190 $self->SUPER::process_o2m(%opt);
194 # Create default sectors for any tower that doesn't have one.
195 # Shouldn't do any harm if they're missing, but just for completeness.
197 foreach my $tower (qsearch('tower',{})) {
198 next if $tower->default_sector;
199 my $sector = FS::tower_sector->new({
200 towernum => $tower->towernum,
201 sectorname => '_default',
204 my $error = $sector->insert;
205 die "error creating default sector: $error\n" if $error;
216 L<FS::tower_sector>, L<FS::svc_broadband>, L<FS::Record>