diff options
author | Mark Wells <mark@freeside.biz> | 2012-02-27 10:31:47 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2012-02-27 10:31:47 -0800 |
commit | eb9d1063e1203231ee0c6922ea5638370f7b5ece (patch) | |
tree | e2d6781d7b0a9239c5e3deb98b27c694426f86c5 /FS/FS/router.pm | |
parent | caba365bbebc7e73ad0c25f9a3a9c75a48ed6140 (diff) |
allow svc_broadband to link directly to a router, #14698
Diffstat (limited to 'FS/FS/router.pm')
-rwxr-xr-x | FS/FS/router.pm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/FS/FS/router.pm b/FS/FS/router.pm index f66f2ce..99373e5 100755 --- a/FS/FS/router.pm +++ b/FS/FS/router.pm @@ -40,6 +40,9 @@ fields are currently supported: =item svcnum - svcnum of the owning FS::svc_broadband, if appropriate +=item auto_addr - flag to automatically assign IP addresses to services +linked to this router ('Y' or null). + =back =head1 METHODS @@ -83,6 +86,7 @@ sub check { my $error = $self->ut_numbern('routernum') || $self->ut_text('routername') + || $self->ut_enum('auto_addr', [ '', 'Y' ]) || $self->ut_agentnum_acl('agentnum', 'Broadband global configuration') ; return $error if $error; @@ -128,6 +132,11 @@ sub delete { Returns a list of FS::addr_block objects (address blocks) associated with this object. +=item auto_addr_block + +Returns a list of address blocks on which auto-assignment of IP addresses +is enabled. + =cut sub addr_block { @@ -135,6 +144,13 @@ sub addr_block { return qsearch('addr_block', { routernum => $self->routernum }); } +sub auto_addr_block { + my $self = shift; + return () if !$self->auto_addr; + return qsearch('addr_block', { routernum => $self->routernum, + manual_flag => '' }); +} + =item part_svc_router Returns a list of FS::part_svc_router objects associated with this |