Index: openacs-4/packages/evaluation/www/admin/groups/group-delete.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/group-delete.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/evaluation/www/admin/groups/group-delete.tcl 7 Aug 2017 23:48:10 -0000 1.10 +++ openacs-4/packages/evaluation/www/admin/groups/group-delete.tcl 3 Sep 2024 15:37:38 -0000 1.11 @@ -1,19 +1,22 @@ # /packages/evaluation/www/admin/groups/group-delete.tcl ad_page_contract { - Asks for a confirmation before deleting the group + Asks for a confirmation before deleting the group - @author jopez@galileo.edu - @creation-date Mar 2004 - @cvs-id $Id$ + @author jopez@galileo.edu + @creation-date Mar 2004 + @cvs-id $Id$ } { - evaluation_group_id:naturalnum,notnull - task_id:naturalnum,notnull - return_url:localurl,optional + evaluation_group_id:naturalnum,notnull + task_id:naturalnum,notnull + return_url:localurl,optional } set page_title "[_ evaluation.Delete_Evaluation_]" -set context [list [list "[export_vars -base one-task { task_id }]" "[_ evaluation.Task_Groups_]"] [list "[export_vars -base one-group { task_id evaluation_group_id }]" "[_ evaluation.One_Group_]"] "[_ evaluation.Delete_Group_]"] +set context [list \ + [list [export_vars -base one-task { task_id }] [_ evaluation.Task_Groups_]] \ + [list [export_vars -base one-group { task_id evaluation_group_id }] [_ evaluation.One_Group_]] \ + [_ evaluation.Delete_Group_]] db_1row get_group_info { *SQL* }