diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/access_groupagent.pm | 12 | ||||
| -rw-r--r-- | FS/FS/agent.pm | 2 |
2 files changed, 13 insertions, 1 deletions
diff --git a/FS/FS/access_groupagent.pm b/FS/FS/access_groupagent.pm index 3de8feeed..bacc01331 100644 --- 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 FS::access_group; @ISA = qw(FS::Record); @@ -120,6 +121,17 @@ sub agent { 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 diff --git a/FS/FS/agent.pm b/FS/FS/agent.pm index 4166a7cac..ff0a2b1f6 100644 --- a/FS/FS/agent.pm +++ b/FS/FS/agent.pm @@ -10,7 +10,7 @@ use FS::agent_type; use FS::reg_code; use FS::TicketSystem; -@ISA = qw( FS::Record ); +@ISA = qw( FS::m2m_Common FS::Record ); =head1 NAME |