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