Index: openacs-4/packages/categories/www/cadmin/category-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-delete-2.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	9 Feb 2004 19:51:44 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	10 Feb 2004 12:06:41 -0000	1.7
@@ -11,15 +11,16 @@
     object_id:integer,optional
 }
 
+set user_id [ad_maybe_redirect_for_registration]
 permission::require_permission -object_id $tree_id -privilege category_tree_write
 
 db_transaction {
-    foreach category_id [db_list order_categories_for_delete "" {
+    foreach category_id [db_list order_categories_for_delete ""] {
 	category::delete $category_id
     }
     category_tree::flush_cache $tree_id
 } on_error {
-    ad_return_complaint 1 "Error deleting category.<p>A category still contains subcategories. If you really want to delete those subcategories, please delete them first. Thank you."
+    ad_return_complaint 1 {{Error deleting category. A category probably still contains subcategories. If you really want to delete those subcategories, please delete them first. Thank you.}}
     return
 }