Index: openacs-4/packages/lab-report/www/new-section.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report/www/new-section.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/lab-report/www/new-section.tcl	21 May 2006 05:29:44 -0000	1.2
+++ openacs-4/packages/lab-report/www/new-section.tcl	24 May 2006 12:30:41 -0000	1.3
@@ -30,6 +30,19 @@
 				       [list package_id $package_id] \
 				       [list author_id $author_id]] \
 			lr_section_content]
+
+    # Get instructor group ID.
+    set instructor_group_id [lab_report_central::instructor_group_id]
+
+    # Grant instructors commenting privileges on report.
+    lab_report::grant_gc_create \
+	-party_id $instructor_group_id \
+	-object_id $content_id
+
+    # Grant author commenting privileges on report.
+    lab_report::grant_gc_create \
+	-party_id $author_id \
+	-object_id $content_id
 }
 
 # Redirect to edit-section page.