Index: openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	8 Aug 2005 13:10:07 -0000	1.8
+++ openacs-4/packages/dotlrn-ecommerce/www/admin/course-add-edit.tcl	16 Aug 2005 00:29:09 -0000	1.9
@@ -175,6 +175,14 @@
     # add email template defaults
     # we will fall back to the site wide defaults instead
     
+    if { [exists_and_not_null assessment_id] } {
+	# Make sure assessment permissions are properly set
+	set registered_users [acs_magic_object registered_users]
+	permission::grant -party_id $registered_users -object_id $assessment_id -privilege "read"
+	permission::grant -party_id $registered_users -object_id $assessment_id -privilege "write"
+	permission::grant -party_id $registered_users -object_id $assessment_id -privilege "create"
+    }
+
 } -edit_data {
     # New revision in the CR
     catch {
@@ -204,6 +212,14 @@
 	category::map_object -object_id $revision_id $category_ids
     }
 
+    if { [exists_and_not_null assessment_id] } {
+	# Make sure assessment permissions are properly set
+	set registered_users [acs_magic_object registered_users]
+	permission::grant -party_id $registered_users -object_id $assessment_id -privilege "read"
+	permission::grant -party_id $registered_users -object_id $assessment_id -privilege "write"
+	permission::grant -party_id $registered_users -object_id $assessment_id -privilege "create"
+    }
+
 } -new_request {
     set context [list [list course-list "[_ dotlrn-catalog.course_list]"] "[_ dotlrn-catalog.new_course]"]
     set page_title "[_ dotlrn-catalog.new_course]"