From 489b07f487fc230e723618b9d1fe981cc8a620c2 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Tue, 8 May 2018 15:44:08 -0700
Subject: [PATCH] show account services in address block list too, RT#79825

---
 FS/FS/addr_block.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/FS/FS/addr_block.pm b/FS/FS/addr_block.pm
index 7687334d7..b8486fe98 100755
--- a/FS/FS/addr_block.pm
+++ b/FS/FS/addr_block.pm
@@ -203,6 +203,18 @@ sub svc_broadband {
   return qsearch('svc_broadband', { blocknum => $self->blocknum });
 }
 
+=item svc_acct
+
+Returns a list of FS::svc_broadband objects associated
+with this object.
+
+=cut
+
+sub svc_acct {
+  my $self = shift;
+  return qsearch('svc_acct', { blocknum => $self->blocknum });
+}
+
 =item NetAddr
 
 Returns a NetAddr::IP object for this block's address and netmask.
-- 
2.11.0