tower for svc_acct, RT#15538

[freeside.git] / FS / FS / svc_Tower_Mixin.pm

diff --git a/FS/FS/svc_Tower_Mixin.pm b/FS/FS/svc_Tower_Mixin.pm
new file mode 100644 (file)
index 0000000..8caef6d
--- /dev/null
+++ b/FS/FS/svc_Tower_Mixin.pm
@@ -0,0 +1,17 @@
+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 });
+}
+
+1;