Index: openacs-4/packages/lab-report/tcl/lab-report-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report/tcl/lab-report-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lab-report/tcl/lab-report-procs.tcl	24 May 2006 12:30:41 -0000	1.2
+++ openacs-4/packages/lab-report/tcl/lab-report-procs.tcl	21 Aug 2006 23:25:15 -0000	1.3
@@ -84,3 +84,15 @@
 	-object_id $object_id \
 	-privilege "general_comments_create"
 }
+
+
+ad_proc -public lab_report::instructor_p {
+    user_id
+} {
+    Checks if the given user_id is an instructor.
+
+    @param user_id A user_id to check against members of the instructor group.
+} {
+    return [group::member_p -user_id $user_id \
+		-group_id [lab_report_central::instructor_group_id]]
+}
\ No newline at end of file