package FS::svc_Tower_Mixin;
use strict;
-use FS::Record qw(qsearchs); #qsearch;
-use FS::tower_sector;
=item tower_sector
-=cut
-
-sub tower_sector {
- my $self = shift;
- return '' unless $self->sectornum;
- qsearchs('tower_sector', { sectornum => $self->sectornum });
-}
-
=item tower_sector_sql HASHREF
Class method which returns a list of WHERE clause fragments to
=cut
sub tower_sector_sql {
- my $class = shift;
- my $params = shift;
- return '' unless keys %$params;
- my $where = '';
+ my( $class, $params ) = @_;
+ return () unless keys %$params;
- my @where;
+ my @where = ();
for my $field (qw(towernum sectornum)) {
my $value = $params->{$field} or next;
if ( ref $value and grep { $_ } @$value ) {
@where;
}
-
1;