Index: openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl	8 Aug 2006 21:26:42 -0000	1.8
+++ openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl	27 Oct 2014 16:41:27 -0000	1.9
@@ -7,13 +7,13 @@
 	@creation-date Mar 2004
 	@cvs-id $Id$
 } {
-	evaluation_group_id:integer
-	task_id:integer
+	evaluation_group_id:naturalnum,notnull
+	task_id:naturalnum,notnull
 	operation
 	return_url
 }
 
-if { [string eq $operation "[_ evaluation.lt_Yes_I_really_want_to__2]"] } {
+if {$operation eq "[_ evaluation.lt_Yes_I_really_want_to__2]"} {
     db_transaction {
 
 		evaluation::delete_evaluation_group -group_id $evaluation_group_id