Index: openacs-4/packages/cms/www/modules/categories/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/categories/delete.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/cms/www/modules/categories/delete.tcl	30 Sep 2003 12:10:05 -0000	1.5
+++ openacs-4/packages/cms/www/modules/categories/delete.tcl	12 Apr 2005 21:45:42 -0000	1.6
@@ -11,10 +11,7 @@
 # If nonempty, show error
 if { [string equal $is_empty "f"] } {
 
-  set message "This category contains subcategories and cannot be deleted."
-  set return_url "modules/categories/index"
-  set passthrough [list [list id $id] [list parent_id $parent_id]]
-  template::forward "../../error?message=$message&return_url=$return_url&passthrough=$passthrough"
+  ad_complain "This category contains subcategories and cannot be deleted."
 
 } else {
 
@@ -29,6 +26,6 @@
   clipboard::set_cookie $clip
   clipboard::free $clip 
 
-  template::forward "refresh-tree?id=_all_&goto_id=$parent_id&mount_point=$mount_point"
+  ad_returnredirect "index?id=$parent_id&mount_point=$mount_point"
 }