[freeside-commits] freeside/httemplate/browse part_pkg.cgi, 1.39, 1.40

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/httemplate/browse
In directory wavetail:/tmp/cvs-serv23938/httemplate/browse

Modified Files:
	part_pkg.cgi 
Log Message:
beginning of agent-virtualization of packages

Index: part_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/browse/part_pkg.cgi,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- part_pkg.cgi	1 Aug 2007 22:24:58 -0000	1.39
+++ part_pkg.cgi	24 Sep 2007 00:56:50 -0000	1.40
@@ -5,6 +5,9 @@
                  'name'               => 'package definitions',
                  'disableable'        => 1,
                  'disabled_statuspos' => 3,
+                 'agent_virt'         => 1,
+                 'agent_null_right'   => 'Edit global package definitions',
+                 'agent_pos'          => 4,
                  'query'              => { 'select'    => $select,
                                            'table'     => 'part_pkg',
                                            'hashref'   => {},
@@ -20,7 +23,8 @@
 <%init>
 
 die "access denied"
-  unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+  unless $FS::CurrentUser::CurrentUser->access_right('Edit package definitions')
+      || $FS::CurrentUser::CurrentUser->access_right('Edit global package definitions');
 
 my $select = '*';
 my $orderby = 'pkgpart';
@@ -220,6 +224,9 @@
 
 # --------
 
-my $count_query = 'SELECT COUNT(*) FROM part_pkg';
+my $count_query = 'SELECT COUNT(*) FROM part_pkg WHERE '.
+                    $FS::CurrentUser::CurrentUser->agentnums_sql(
+                      'null_right' => 'Edit global package definitions',
+                    );
 
 </%init>