Index: openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.tcl	17 Feb 2005 22:56:10 -0000	1.2
+++ openacs-4/packages/dotlrn-catalog/www/dt-admin/associate-course.tcl	2 Nov 2005 20:30:22 -0000	1.3
@@ -17,10 +17,19 @@
     set type "dotlrn_catalog_dotcom_rel"
 }
 
+set item_id [db_string get_item_id "select item_id from cr_revisions where revision_id = $course_id"]
+
 foreach object $object_id {
     dotlrn_catalog::add_relation -course_id $course_id -object_id $object -type $type
-}
 
+    set admin_users [db_list_of_lists community_admin_users {}]
+    
+    foreach user $admin_users {
+	permission::grant -party_id $user -object_id [ad_conn package_id] -privilege "create"
+	permission::grant -party_id $user -object_id $item_id -privilege "admin"
+
+    }
+}
 if { [string equal $return_url ""] } {
     ad_returnredirect "dotlrn-list?course_id=$course_id"
 }