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.7 -r1.8
--- openacs-4/packages/categories/www/cadmin/tree-usage.tcl	1 Mar 2005 00:01:27 -0000	1.7
+++ openacs-4/packages/categories/www/cadmin/tree-usage.tcl	6 Nov 2008 15:50:44 -0000	1.8
@@ -8,6 +8,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -29,7 +30,9 @@
 set tree_description $tree(description)
 set page_title "Modules using Category Tree \"$tree_name\""
 
-set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
+set context_bar [category::context_bar $tree_id $locale \
+                     [value_if_exists object_id] \
+                     [value_if_exists ctx_id]]
 lappend context_bar "Usage"
 
 
@@ -40,7 +43,7 @@
 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}]
+    set unmap_url [export_vars -no_empty -base tree-unmap {tree_id object_id ctx_id}]
 
     if {$read_p == "t"} {
 	template::multirow append modules $package $object_id $object_name $package_id $instance_name $read_p $unmap_url