+@page_title;noquote@
+@context;noquote@
+
+#lab-report-central.class_list_of_students#
+
+
+
+
+
+#lab-report-central.users_that_can_be_added_as_students#
+
+
+
+
Index: openacs-4/packages/lab-report-central/www/students-admin.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/students-admin.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lab-report-central/www/students-admin.tcl 1 Sep 2006 11:40:29 -0000 1.1
@@ -0,0 +1,73 @@
+ad_page_contract {
+ Add a student to a lab.
+
+ @author Nick Carroll (nick.c@rroll.net)
+ @creation-date 2006-04-18
+ @cvs-id $Id: students-admin.tcl,v 1.1 2006/09/01 11:40:29 ncarroll Exp $
+} {
+ lab_id:integer
+ return_url:optional
+}
+
+auth::require_login
+
+set package_id [ad_conn package_id]
+set lab_instructor_id [ad_conn user_id]
+set peeraddr [ad_conn peeraddr]
+
+permission::require_permission -party_id $lab_instructor_id \
+ -object_id $package_id \
+ -privilege lab_report_central_admin
+
+if { ![info exists return_url] } {
+ set return_url [export_vars -url -base students {lab_id}]
+}
+
+set lab_name [db_string lab_name {} -default ""]
+
+set page_title [_ lab-report-central.add_student]
+set context [list [list [export_vars -url -base lab {lab_id}] $lab_name] \
+ $page_title]
+
+
+db_multirow students students {}
+
+template::list::create \
+ -name students \
+ -multirow students \
+ -key user_id \
+ -bulk_actions {
+ "Remove" "students-rem" "Remove user from class list"
+ } \
+ -bulk_action_method post -bulk_action_export_vars {
+ user_id lab_id
+ } \
+ -no_data {#lab-report-central.no_members_added_to_group#} \
+ -elements {
+ name {
+ label #lab-report-central.name#
+ }
+ } \
+ -html {width 60%}
+
+db_multirow non_students non_students {}
+
+template::list::create \
+ -name non_students \
+ -multirow non_students \
+ -key user_id \
+ -bulk_actions {
+ "Add" "students-add" "Add user to class list"
+ } \
+ -bulk_action_method post -bulk_action_export_vars {
+ user_id lab_id
+ } \
+ -no_data {#lab-report-central.no_members_added_to_group#} \
+ -elements {
+ name {
+ label #lab-report-central.name#
+ }
+ } \
+ -html {width 60%}
+
+ad_return_template
\ No newline at end of file
Index: openacs-4/packages/lab-report-central/www/students-rem-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/students-rem-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lab-report-central/www/students-rem-postgresql.xql 1 Sep 2006 11:40:29 -0000 1.1
@@ -0,0 +1,14 @@
+
+
+
+ postgresql7.4
+
+
+
+ DELETE FROM lrc_lab_student_map
+ WHERE user_id = :student_id
+ AND lab_id = :lab_id
+
+
+
+
Index: openacs-4/packages/lab-report-central/www/students-rem.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/students-rem.tcl,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/lab-report-central/www/students-rem.tcl 1 Sep 2006 11:40:29 -0000 1.1
@@ -0,0 +1,21 @@
+ad_page_contract {
+
+ Removes the given list of users to the class list for the specified lab..
+
+ @author Nick Carroll (ncarroll@ee.usyd.edu.au)
+ @creation-date 2005-01-02
+ @version $Id: students-rem.tcl,v 1.1 2006/09/01 11:40:29 ncarroll Exp $
+
+} {
+ lab_id:integer,notnull
+ user_id:integer,multiple
+}
+
+set count 0
+# For each member in the list of user IDs, add that user to the group.
+foreach student_id $user_id {
+ db_dml rem_student {}
+ incr count
+}
+
+ad_returnredirect -message "Removed $count users from class list." [export_vars -url -base {students-admin} {lab_id}]
Index: openacs-4/packages/lab-report-central/www/students.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lab-report-central/www/students.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/lab-report-central/www/students.tcl 31 Aug 2006 10:32:07 -0000 1.1
+++ openacs-4/packages/lab-report-central/www/students.tcl 1 Sep 2006 11:40:29 -0000 1.2
@@ -27,7 +27,7 @@
-object_id $package_id \
-privilege lab_report_central_admin]
-set add_student_url [export_vars -url -base attach-student {lab_id}]
+set add_student_url [export_vars -url -base students-admin {lab_id}]
db_multirow -extend {rem_student_url dotfolio_url} student select_students {} {
set rem_student_url [export_vars -url -base detach-student {lab_id student_id}]