[20870] The admin group get full access in a fresh install

Revision: 20870
          http://svn.sv.gnu.org/viewvc/?view=rev&root=phpgroupware&revision=20870
Author:   sigurdne
Date:     2009-11-21 10:16:14 +0000 (Sat, 21 Nov 2009)
Log Message:
-----------
The admin group get full access in a fresh install

Modified Paths:
--------------
    people/sigurdne/modules/property/trunk/setup/default_records.inc.php

Modified: people/sigurdne/modules/property/trunk/setup/default_records.inc.php
===================================================================
--- people/sigurdne/modules/property/trunk/setup/default_records.inc.php	2009-11-20 23:07:54 UTC (rev 20869)
+++ people/sigurdne/modules/property/trunk/setup/default_records.inc.php	2009-11-21 10:16:14 UTC (rev 20870)
@@ -714,3 +714,16 @@
 $GLOBALS['phpgw_setup']->oProc->query("INSERT INTO fm_action_pending_category (num, name, descr) VALUES ('remind', 'Remind', 'This is a reminder of task assigned')");
 $GLOBALS['phpgw_setup']->oProc->query("INSERT INTO fm_action_pending_category (num, name, descr) VALUES ('accept_delivery', 'Accept delivery', 'Please accept delivery on this item')");
 
+// Admin get full access
+$GLOBALS['phpgw']->acl->enable_inheritance = true;
+$aclobj =& $GLOBALS['phpgw']->acl;
+$admin_group		= $GLOBALS['phpgw']->accounts->name2id('admin');
+if($admin_group) // check if admin has been defined yet
+{
+	$aclobj->set_account_id($admin_group, true);
+	$aclobj->add('property', '.', 31);
+	$aclobj->add('property', 'run', 1);
+	$aclobj->save_repository();
+}
+
+