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 -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
     }