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 {