projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
add dsl, circuit and fiber services to email and RT ticket exports, RT#84345
[freeside.git]
/
FS
/
FS
/
addr_block.pm
diff --git
a/FS/FS/addr_block.pm
b/FS/FS/addr_block.pm
index
77ac334
..
f07de49
100755
(executable)
--- a/
FS/FS/addr_block.pm
+++ b/
FS/FS/addr_block.pm
@@
-6,6
+6,7
@@
use FS::Record qw( qsearchs qsearch dbh );
use FS::router;
use FS::addr_range;
use FS::svc_broadband;
use FS::router;
use FS::addr_range;
use FS::svc_broadband;
+use FS::svc_acct;
use FS::Conf;
use FS::IP_Mixin;
use NetAddr::IP;
use FS::Conf;
use FS::IP_Mixin;
use NetAddr::IP;
@@
-203,6
+204,18
@@
sub svc_broadband {
return qsearch('svc_broadband', { blocknum => $self->blocknum });
}
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.
=item NetAddr
Returns a NetAddr::IP object for this block's address and netmask.
@@
-412,8
+425,6
@@
sub label {
($router ? $router->routername : '(unallocated)'). ':'. $self->NetAddr;
}
($router ? $router->routername : '(unallocated)'). ':'. $self->NetAddr;
}
-=back
-
=head1 BUGS
Minimum block size should be a config option. It's hardcoded at /30 right
=head1 BUGS
Minimum block size should be a config option. It's hardcoded at /30 right