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 -N -r1.5 -r1.6
--- openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl	22 Dec 2004 22:06:41 -0000	1.5
+++ openacs-4/packages/evaluation/www/admin/groups/group-delete-2.tcl	5 Apr 2005 17:19:09 -0000	1.6
@@ -10,6 +10,7 @@
 	evaluation_group_id:integer
 	task_id:integer
 	operation
+	return_url
 }
 
 if { [string eq $operation "[_ evaluation.lt_Yes_I_really_want_to__2]"] } {
@@ -22,10 +23,11 @@
 		ad_return_error "[_ evaluation.lt_Error_deleting_the_ev]" "[_ evaluation.lt_We_got_the_following_]"
 		ad_script_abort
     }
+} else {
+	# it is a "don't do anything" request
+	ad_returnredirect $return_url
 }
 
 db_release_unused_handles
 
-# redirect to the index page by default
-
 ad_returnredirect "one-task?[export_vars -url { task_id }]"