Index: openacs-4/packages/categories/www/cadmin/category-set-parent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/category-set-parent.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	1 Feb 2004 19:12:51 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	5 Feb 2004 18:58:48 -0000	1.4
@@ -14,7 +14,6 @@
     context_bar:onevalue
     locale:onevalue
     tree_name:onevalue
-    url_vars:onevalue
     tree:multirow
 }
 
@@ -24,7 +23,6 @@
 array set one_tree [category_tree::get_data $tree_id $locale]
 set tree_name $one_tree(tree_name)
 
-set url_vars [export_vars {tree_id category_id locale object_id}]
 set page_title "Choose a parent node"
 
 if {[info exists object_id]} {
@@ -37,17 +35,37 @@
 
 set subtree_categories_list [db_list subtree ""]
 
-template::multirow create tree category_name category_id deprecated_p level left_indent url_p
+template::multirow create tree category_name category_id deprecated_p level left_indent parent_url
+template::multirow append tree "Root Level" 0 f 0 "" \
+    [export_vars -no_empty -base category-set-parent-2 {tree_id category_id locale object_id}]
 
 foreach category [category_tree::get_tree -all $tree_id $locale] {
     util_unlist $category category_id category_name deprecated_p level
 
     if { [lsearch $subtree_categories_list $category_id]==-1 } {
-	set url_p 1
+	set parent_url [export_vars -no_empty -base category-set-parent-2 [list [list parent_id $category_id] tree_id category_id locale object_id]]
     } else {
-	set url_p 0
+	set parent_url ""
     }
-    template::multirow append tree $category_name $category_id $deprecated_p $level [category::repeat_string " " [expr ($level-1)*5]] $url_p
+    template::multirow append tree $category_name $category_id $deprecated_p $level [category::repeat_string " " [expr ($level-1)*5]] $parent_url
 }
 
+template::list::create \
+    -name tree \
+    -no_data "None" \
+    -elements {
+	category_name {
+	    label "Name"
+	    display_template {
+		@tree.left_indent;noquote@ @tree.category_name@
+	    }
+	}
+	set_parent {
+	    label "Action"
+	    display_template {
+		<if @tree.parent_url@ not nil><a href="@tree.parent_url@">Set parent</a></if>
+	    }
+	}
+    }
+
 ad_return_template