diff options
| author | Mark Wells <mark@freeside.biz> | 2012-02-21 23:19:44 -0800 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2012-02-25 17:06:14 -0800 |
| commit | 759a410ce131e9c26213a40ca77de2386d414108 (patch) | |
| tree | e159de1665f7026dcfab1ed5775dd803016c6b06 /FS/FS/router.pm | |
| parent | 76f705b6b855b4e27bdbdb16dd2e06430b458082 (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 f66f2cee8..99373e5d1 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 |