Index: openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/simulation/tcl/Attic/apm-callback-procs.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl 15 Jan 2004 13:18:43 -0000 1.11 +++ openacs-4/contrib/packages/simulation/tcl/apm-callback-procs.tcl 20 Jan 2004 15:33:43 -0000 1.12 @@ -72,6 +72,8 @@ set subsite_group_id [simulation::subsite_group_id -package_id $package_id] relation_add composition_rel $subsite_group_id $parent_group_id + # TODO: (0.3h) Sim Admins and Service Admins should be able to set groups. Probably + # we can do this by granting admin on the package # Create the permission groups foreach {group_name privilege_list} { "Sim Admins" {sim_admin} @@ -91,6 +93,8 @@ permission::grant -party_id $permission_group_id -object_id $package_id -privilege $privilege } } + + } } Index: openacs-4/packages/simulation/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/apm-callback-procs.tcl,v diff -u -r1.11 -r1.12 --- openacs-4/packages/simulation/tcl/apm-callback-procs.tcl 15 Jan 2004 13:18:43 -0000 1.11 +++ openacs-4/packages/simulation/tcl/apm-callback-procs.tcl 20 Jan 2004 15:33:43 -0000 1.12 @@ -72,6 +72,8 @@ set subsite_group_id [simulation::subsite_group_id -package_id $package_id] relation_add composition_rel $subsite_group_id $parent_group_id + # TODO: (0.3h) Sim Admins and Service Admins should be able to set groups. Probably + # we can do this by granting admin on the package # Create the permission groups foreach {group_name privilege_list} { "Sim Admins" {sim_admin} @@ -91,6 +93,8 @@ permission::grant -party_id $permission_group_id -object_id $package_id -privilege $privilege } } + + } }