use vars qw( @ISA );
use FS::Record qw( qsearch qsearchs );
use FS::agent;
+use FS::access_group;
@ISA = qw(FS::Record);
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