Index: openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl,v diff -u -r1.1.2.1 -r1.1.2.2 --- openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl 19 Jul 2004 18:39:39 -0000 1.1.2.1 +++ openacs-4/packages/dotlrn/tcl/apm-callback-procs.tcl 8 Aug 2004 00:25:04 -0000 1.1.2.2 @@ -24,11 +24,13 @@ db_transaction { set group_id [group::new -group_name "dotlrn-admin" ] } - # Admin privs - # permission::grant \ - # -party_id $group_id \ - # -object_id [dotlrn::get_package_id] \ - # -privilege "admin" + + #gran new-portal admin permission + permission::grant \ + -party_id $group_id \ + -object_id [apm_package_id_from_key new-portal] \ + -privilege "admin" + } @@ -109,6 +111,14 @@ ns_log notice "dotlrn upgrade: dotlrn-portlet permission granted..." + #gran new-portal admin permission + permission::grant \ + -party_id $dotlrn_admins_group \ + -object_id [apm_package_id_from_key new-portal] \ + -privilege "admin" + + ns_log notice "dotlrn upgrade: new-portal permission granted..." + } db_transaction {