diff options
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 |