Index: openacs-4/packages/categories/www/cadmin/tree-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-delete.adp,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/tree-delete.adp	5 Feb 2004 18:58:48 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/tree-delete.adp	27 Apr 2004 11:23:45 -0000	1.4
@@ -6,13 +6,13 @@
 <p>
 <table>
   <tr><th>Tree Name</th><td>@tree_name@</td></tr>
-  <tr><th>Description</th><td> @tree_description@</td></tr>
+  <tr><th>Description</th><td>@tree_description@</td></tr>
 </table>
 </p>
 
 <if @instances_using_p@ eq t>
   This tree is still used by some modules. For a complete list, please go
-  <a href="tree-usage?@url_vars;noquote@">here</a>.
+  <a href="@usage_url@">here</a>.
 </if>
 
 <if @used_categories:rowcount@ gt 0>
Index: openacs-4/packages/categories/www/cadmin/tree-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-delete.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/categories/www/cadmin/tree-delete.tcl	11 Feb 2004 09:02:43 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-delete.tcl	27 Apr 2004 11:23:45 -0000	1.8
@@ -41,6 +41,7 @@
 
 set delete_url [export_vars -no_empty -base tree-delete-2 {tree_id locale object_id}]
 set cancel_url [export_vars -no_empty -base tree-view {tree_id locale object_id}]
+set usage_url [export_vars -no_empty -base tree-usage {tree_id}]
 
 template::multirow create used_categories category_id category_name view_url
 
Index: openacs-4/packages/categories/www/cadmin/tree-usage.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-usage.adp,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/tree-usage.adp	22 May 2003 14:25:54 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/tree-usage.adp	27 Apr 2004 11:23:45 -0000	1.3
@@ -15,7 +15,8 @@
   <group column=package>
     </ul><if @modules.object_name@ ne @modules.instance_name@>@modules.instance_name@</if><ul>
     <group column=package_id>
-      <li><a href="/o/@modules.object_id@">@modules.object_name@</a></li>
+      <li><a href="/o/@modules.object_id@">@modules.object_name@</a>
+          <a href="@unmap_url@" class="button">unmap</a></li>
     </group>
   </group>
   </ul>
Index: openacs-4/packages/categories/www/cadmin/tree-usage.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-usage.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/categories/www/cadmin/tree-usage.tcl	11 Feb 2004 09:02:43 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/tree-usage.tcl	27 Apr 2004 11:23:45 -0000	1.6
@@ -33,15 +33,17 @@
 lappend context_bar "Usage"
 
 
-template::multirow create modules package object_id object_name package_id instance_name read_p
+template::multirow create modules package object_id object_name package_id instance_name read_p unmap_url
 
 set instance_list [category_tree::usage $tree_id]
 
 set instances_without_permission 0
 foreach instance $instance_list {
     util_unlist $instance package object_id object_name package_id instance_name read_p
+    set unmap_url [export_vars -no_empty -base tree-unmap {tree_id object_id}]
+
     if {$read_p == "t"} {
-	template::multirow append modules $package $object_id $object_name $package_id $instance_name $read_p
+	template::multirow append modules $package $object_id $object_name $package_id $instance_name $read_p $unmap_url
     } else {
 	incr instances_without_permission
     }