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.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	11 Dec 2003 21:40:00 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/category-delete-2.tcl	14 Dec 2003 15:36:57 -0000	1.3
@@ -6,15 +6,17 @@
     @cvs-id $Id:
 } {
     tree_id:integer
-    category_id:integer
+    category_id:integer,multiple
     {locale ""}
     object_id:integer,optional
 }
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
 
 db_transaction {
-    category::delete $category_id
+    foreach id $category_id {
+	category::delete $id
+    }
     category_tree::flush_cache $tree_id
 } on_error {
     ad_return_complaint 1 "Error Deleting Node<p>This node contains leaf (child) nodes. If you really want to delete those leaf nodes, plesae delete them first. Thank you."