Index: openacs-4/packages/lab-report-central/www/lab.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/lab.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/lab-report-central/www/lab.tcl	30 Apr 2006 12:01:31 -0000	1.4
+++ openacs-4/packages/lab-report-central/www/lab.tcl	31 Aug 2006 10:32:07 -0000	1.5
@@ -32,14 +32,32 @@
 
 set create_url [export_vars -url -base attach-template { lab_id }]
 
-set admin_p [permission::permission_p -party_id $user_id \
+set marker_p [permission::permission_p -party_id $user_id \
 		  -object_id $package_id \
 		  -privilege lab_report_central_admin]
 
 set add_student_url [export_vars -url -base attach-student {lab_id}]
 
-db_multirow -extend {rem_student_url} student select_students {} {
-    set rem_student_url [export_vars -url -base detach-student {lab_id student_id}]
+# Select all students that belong to the marker that is viewing this page.
+db_multirow -extend {dotfolio_url} student select_marking_group {} {
+    set dotfolio_base_url "[dotfolio::user::dotfolio_url -user_id $student_id]"
+    set dotfolio_url [export_vars -url \
+			  -base "${dotfolio_base_url}pracs/view-lab" {lab_id}]
 }
 
+set view_students_url [export_vars -url -base students {lab_id}]
+
+# Is the user the instructor that the lab is assigned to?
+set lab_instructor_p 0
+if { $user_id == $instructor_id} {
+    set lab_instructor_p 1
+}
+
+set show_buttons_p 0
+if { $lab_instructor_p } {
+    set show_buttons_p 1
+}
+
+set create_group_url [export_vars -url -base groups {lab_id}]
+
 ad_return_template