[freeside-commits] freeside/FS/FS agent.pm, 1.17, 1.18 access_groupagent.pm, 1.2, 1.3

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv2946/FS/FS

Modified Files:
	agent.pm access_groupagent.pm 
Log Message:
add ability to view/edit access groups of an agent

Index: agent.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/agent.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- agent.pm	19 Oct 2008 00:38:08 -0000	1.17
+++ agent.pm	13 Nov 2008 02:22:03 -0000	1.18
@@ -10,7 +10,7 @@
 use FS::reg_code;
 use FS::TicketSystem;
 
- at ISA = qw( FS::Record );
+ at ISA = qw( FS::m2m_Common FS::Record );
 
 =head1 NAME
 

Index: access_groupagent.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/access_groupagent.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- access_groupagent.pm	18 Jun 2006 12:54:48 -0000	1.2
+++ access_groupagent.pm	13 Nov 2008 02:22:03 -0000	1.3
@@ -4,6 +4,7 @@
 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 @@
   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