Index: openacs-4/packages/evaluation/www/admin/groups/one-group.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/one-group.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/evaluation/www/admin/groups/one-group.tcl 28 Apr 2004 11:09:54 -0000 1.1 +++ openacs-4/packages/evaluation/www/admin/groups/one-group.tcl 12 May 2004 02:07:46 -0000 1.2 @@ -17,16 +17,13 @@ set page_title "One Group" set context [list [list "[export_vars -base one-task { task_id }]" "Task Groups"] "One Group"] - if { $number_of_members } { set group_name [evaluation::evaluation_group_name -group_id $evaluation_group_id] append page_title ": $group_name" } -set actions [list "Delete Group" [export_vars -base "group-delete" { evaluation_group_id task_id }] {} \ - "Rename Group" [export_vars -base "group-rename" { evaluation_group_id task_id }] {} - ] +set actions [list "Delete Group" [export_vars -base "group-delete" { evaluation_group_id task_id }] {}] set elements [list student_name \ [list label "Student Name" \ @@ -58,6 +55,8 @@ set desassociate_member "Desassociate member" } +set export_vars [export_vars -form { task_id evaluation_group_id }] + ad_return_template