projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
DNS, RT#8933
[freeside.git]
/
FS
/
FS
/
router.pm
diff --git
a/FS/FS/router.pm
b/FS/FS/router.pm
index
2554ce8
..
7a9fda3
100755
(executable)
--- a/
FS/FS/router.pm
+++ b/
FS/FS/router.pm
@@
-5,7
+5,7
@@
use vars qw( @ISA );
use FS::Record qw( qsearchs qsearch );
use FS::addr_block;
use FS::Record qw( qsearchs qsearch );
use FS::addr_block;
-@ISA = qw( FS::Record );
+@ISA = qw( FS::Record
FS::m2m_Common
);
=head1 NAME
=head1 NAME
@@
-82,7
+82,9
@@
sub check {
my $error =
$self->ut_numbern('routernum')
my $error =
$self->ut_numbern('routernum')
- || $self->ut_text('routername');
+ || $self->ut_text('routername')
+ || $self->ut_agentnum_acl('agentnum', 'Broadband global configuration')
+ ;
return $error if $error;
$self->SUPER::check;
return $error if $error;
$self->SUPER::check;
@@
-125,11
+127,17
@@
sub part_svc {
$self->part_svc_router;
}
$self->part_svc_router;
}
-=back
+=item agent
+
+Returns the agent associated with this router, if any.
+
+=cut
-=head1 VERSION
+sub agent {
+ qsearchs('agent', { 'agentnum' => shift->agentnum });
+}
-$Id:
+=back
=head1 BUGS
=head1 BUGS