freeside/FS/FS Conf.pm,1.98,1.99 cust_svc.pm,1.39,1.40

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv17248

Modified Files:
	Conf.pm cust_svc.pm 
Log Message:
option to only allow primary users access to the self-service server

Index: cust_svc.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_svc.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- cust_svc.pm	16 Mar 2004 04:36:16 -0000	1.39
+++ cust_svc.pm	21 Jun 2004 10:26:14 -0000	1.40
@@ -590,6 +590,23 @@
 
 }
 
+=item pkg_svc
+
+Returns the pkg_svc record for for this service, if applicable.
+
+=cut
+
+sub pkg_svc {
+  my $self = shift;
+  my $cust_pkg = $self->cust_pkg;
+  return undef unless $cust_pkg;
+
+  qsearchs( 'pkg_svc', { 'svcpart' => $self->svcpart,
+                         'pkgpart' => $cust_pkg->pkgpart,
+                       }
+          );
+}
+
 =back
 
 =head1 BUGS

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -u -d -r1.98 -r1.99
--- Conf.pm	11 Jun 2004 14:03:19 -0000	1.98
+++ Conf.pm	21 Jun 2004 10:26:14 -0000	1.99
@@ -1248,6 +1248,15 @@
     'type'        => 'textarea',
   },
 
+  {
+    'key'         => 'selfservice_server-primary_only',
+    'section'     => '',
+    'description' => 'Only allow primary accounts to access self-service functionality.',
+    'type'        => 'checkbox',
+  },
+
+
+
 );
 
 1;