Index: openacs-4/packages/evaluation/www/admin/tasks/task-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/www/admin/tasks/task-delete-2.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/evaluation/www/admin/tasks/task-delete-2.tcl	8 Aug 2006 21:26:43 -0000	1.8
+++ openacs-4/packages/evaluation/www/admin/tasks/task-delete-2.tcl	27 Oct 2014 16:41:27 -0000	1.9
@@ -7,13 +7,13 @@
     @creation-date Mar 2004
     @cvs-id $Id$
 } {
-    task_id:integer,notnull
-    grade_id:integer,notnull
+    task_id:naturalnum,notnull
+    grade_id:naturalnum,notnull
     operation
     return_url
 } 
 
-if { [string eq $operation [_ evaluation.lt_Yes_I_really_want_to__3]] } {
+if {$operation eq [_ evaluation.lt_Yes_I_really_want_to__3]} {
 
     db_transaction {
 
@@ -31,7 +31,7 @@
 	ad_script_abort
     }
 } else {
-    if { [empty_string_p $return_url] } {
+    if { $return_url eq "" } {
 	# redirect to the index page by default
 	set return_url "$return_url"
     }