Index: openacs-4/packages/categories/www/cadmin/subtree-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/subtree-map.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/subtree-map.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/subtree-map.tcl	1 Feb 2004 19:12:52 -0000	1.2
@@ -2,13 +2,14 @@
 
     Map a subtree to a package (or object)
 
-    @author Timo Hentschel (thentschel@sussdorff-roy.com)
+    @author Timo Hentschel (timo@timohentschel.de)
     @cvs-id $Id:
 } {
     source_tree_id:integer,notnull
     category_id:integer,notnull
     {locale ""}
     object_id:integer,notnull
+    {assign_single_p:optional f}
 }
 
 set user_id [ad_maybe_redirect_for_registration]
@@ -19,6 +20,6 @@
     permission::require_permission -object_id $source_tree_id -privilege category_tree_read
 }
 
-category_tree::map -tree_id $source_tree_id -subtree_category_id $category_id -object_id $object_id
+category_tree::map -tree_id $source_tree_id -subtree_category_id $category_id -object_id $object_id -assign_single_p $assign_single_p
 
-ad_returnredirect "one-object?[export_url_vars locale object_id]"
+ad_returnredirect [export_vars -base one-object {locale object_id}]