Index: openacs-4/packages/evaluation/www/admin/groups/one-task.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/one-task.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/evaluation/www/admin/groups/one-task.tcl 22 May 2004 01:20:25 -0000 1.2
+++ openacs-4/packages/evaluation/www/admin/groups/one-task.tcl 31 May 2004 17:04:58 -0000 1.3
@@ -22,22 +22,22 @@
db_1row get_info { *SQL* }
set page_title "Groups for task $task_name"
-set context [list "Task Groups"]
+set context [list "Assignment Groups"]
# we have to decide if we are going to show all the users in the system
# or only the students of a given class (community in dotrln)
# in order to create the groups
set community_id [dotlrn_community::get_community_id]
if { [empty_string_p $community_id] } {
- set query_name students_without_group
+ set query_name get_students_without_group
} else {
- set query_name community_students_without_group
+ set query_name community_get_students_without_group
}
set elements [list associate \
[list label "" \
- display_template { } \
+ display_template { } \
] \
student_name \
[list label "Name" \
@@ -51,9 +51,9 @@
template::list::create \
-name students_without_group \
- -multirow $query_name \
+ -multirow students_without_group \
-key student_id \
- -pass_properties { return_url student_id query_name } \
+ -pass_properties { return_url student_id } \
-filters { task_id {} } \
-elements $elements
@@ -64,7 +64,7 @@
set orderby " order by student_name asc"
}
-db_multirow -extend { associate_to_group_url associate_to_group } $query_name get_$query_name { *SQL* } {
+db_multirow -extend { associate_to_group_url associate_to_group } students_without_group $query_name { *SQL* } {
set associate_to_group_url [export_vars -base "group-member-add" -url { task_id student_id }]
set associate_to_group "Associate to group..."
}
@@ -91,10 +91,10 @@
template::list::create \
-name task_groups \
-multirow task_groups \
- -key evaluation_group_id \
- -pass_properties { return_url evaluation_group_id } \
- -filters { task_id {} } \
- -orderby_name orderby_groups \
+ -key evaluation_group_id \
+ -pass_properties { return_url evaluation_group_id } \
+ -filters { task_id {} } \
+ -orderby_name orderby_groups \
-elements $elements