Index: openacs-4/packages/categories/www/cadmin/category-phase-out.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-phase-out.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/category-phase-out.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/category-phase-out.tcl	14 Dec 2003 15:36:57 -0000	1.2
@@ -5,20 +5,28 @@
     @cvs-id $Id:
 } {
     tree_id:integer
-    category_id:integer
-    phase_out_p:integer
+    category_id:integer,multiple
+    {phase_out_p:integer 1}
     {locale ""}
     object_id:integer,optional
 } 
 
 permission::require_permission -object_id $tree_id -privilege category_tree_write
 
-if {$phase_out_p} {
-    category::phase_out $category_id
+if { $phase_out_p } {
+    db_transaction {
+	foreach id $category_id {
+	    category::phase_out $id
+	}
+    }
     category_tree::flush_cache $tree_id
 } else {
-    category::phase_in $category_id
+    db_transaction {
+	foreach id $category_id {
+	    category::phase_in $id
+	}
+    }
     category_tree::flush_cache $tree_id
 }
 
-ad_returnredirect "tree-view?[export_url_vars tree_id locale object_id]"
+ad_returnredirect [export_vars -base tree-view { tree_id locale object_id }]