package FS::access_group;
use strict;
-use vars qw( @ISA );
+use base qw(FS::m2m_Common FS::m2name_Common FS::Record);
use FS::Record qw( qsearch qsearchs );
-use FS::m2name_Common;
use FS::access_groupagent;
use FS::access_right;
-@ISA = qw(FS::m2m_Common FS::m2name_Common FS::Record);
-
=head1 NAME
FS::access_group - Object methods for access_group records
=cut
sub access_right {
- my( $self, $name ) = shift;
+ my( $self, $name ) = @_;
qsearchs('access_right', { 'righttype' => 'FS::access_group',
'rightobjnum' => $self->groupnum,
'rightname' => $name,