Index: openacs-4/packages/categories/www/cadmin/category-link-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/category-link-add.tcl	1 Mar 2005 00:01:26 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/category-link-add.tcl	6 Nov 2008 15:50:44 -0000	1.4
@@ -9,6 +9,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -23,9 +24,11 @@
 set category_name [category::get_name $category_id $locale]
 set page_title "Select target to add a link to category \"$tree_name :: $category_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 \
-    [list [export_vars -no_empty -base category-links-view {category_id tree_id locale object_id}] "Links to $category_name"] \
+    [list [export_vars -no_empty -base category-links-view {category_id tree_id locale object_id  ctx_id}] "Links to $category_name"] \
     "Select link target"
 
 
@@ -34,7 +37,7 @@
 db_foreach get_trees_to_link "" {
     set tree_name [category_tree::get_name $link_tree_id $locale]
     template::multirow append trees $tree_name $link_tree_id \
-	[export_vars -no_empty -base category-link-add-2 { link_tree_id category_id tree_id locale object_id }]
+	[export_vars -no_empty -base category-link-add-2 { link_tree_id category_id tree_id locale object_id ctx_id}]
 }
 
 template::multirow sort trees -dictionary tree_name