projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
improve unsuspend behavior for packages on hold, #28508
[freeside.git]
/
FS
/
FS
/
svc_Tower_Mixin.pm
diff --git
a/FS/FS/svc_Tower_Mixin.pm
b/FS/FS/svc_Tower_Mixin.pm
index
8508053
..
2555b9e
100644
(file)
--- a/
FS/FS/svc_Tower_Mixin.pm
+++ b/
FS/FS/svc_Tower_Mixin.pm
@@
-1,19
+1,9
@@
package FS::svc_Tower_Mixin;
use strict;
package FS::svc_Tower_Mixin;
use strict;
-use FS::Record qw(qsearchs); #qsearch;
-use FS::tower_sector;
=item 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
=item tower_sector_sql HASHREF
Class method which returns a list of WHERE clause fragments to
@@
-30,7
+20,7
@@
sub tower_sector_sql {
my( $class, $params ) = @_;
return () unless keys %$params;
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 ) {
for my $field (qw(towernum sectornum)) {
my $value = $params->{$field} or next;
if ( ref $value and grep { $_ } @$value ) {