projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
finishing e911/svc_phone location, RT#7047
[freeside.git]
/
FS
/
FS
/
access_groupagent.pm
diff --git
a/FS/FS/access_groupagent.pm
b/FS/FS/access_groupagent.pm
index
3de8fee
..
bacc013
100644
(file)
--- a/
FS/FS/access_groupagent.pm
+++ b/
FS/FS/access_groupagent.pm
@@
-4,6
+4,7
@@
use strict;
use vars qw( @ISA );
use FS::Record qw( qsearch qsearchs );
use FS::agent;
use vars qw( @ISA );
use FS::Record qw( qsearch qsearchs );
use FS::agent;
+use FS::access_group;
@ISA = qw(FS::Record);
@ISA = qw(FS::Record);
@@
-120,6
+121,17
@@
sub agent {
qsearchs('agent', { 'agentnum' => $self->agentnum } );
}
qsearchs('agent', { 'agentnum' => $self->agentnum } );
}
+=item access_group
+
+Returns the associated FS::access_group object.
+
+=cut
+
+sub access_group {
+ my $self = shift;
+ qsearchs('access_group', { 'groupnum' => $self->groupnum } );
+}
+
=back
=head1 BUGS
=back
=head1 BUGS