Index: openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	1 Mar 2005 00:01:26 -0000	1.5
+++ openacs-4/packages/categories/www/cadmin/category-link-add-2.tcl	6 Nov 2008 15:50:44 -0000	1.6
@@ -10,6 +10,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -27,10 +28,12 @@
 set link_tree_name [category_tree::get_name $link_tree_id $locale]
 set page_title "Add link from \"$link_tree_name\" 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-link-add {category_id tree_id locale object_id}] "Select link target"] \
+    [list [export_vars -no_empty -base category-links-view {category_id tree_id locale object_id ctx_id}] "Links to $category_name"] \
+    [list [export_vars -no_empty -base category-link-add {category_id tree_id locale object_id ctx_id}] "Select link target"] \
     "Add link"
 
 
@@ -51,9 +54,9 @@
 
     template::multirow append tree $link_category_name $link_category_id $forward_exists_p $backward_exists_p \
 	[string repeat " " [expr ($level-1)*5]] \
-	[export_vars -no_empty -base category-links-view {{category_id $link_category_id} {tree_id $link_tree_id} locale object_id}] \
-	[export_vars -no_empty -base category-link-add-3 {link_category_id category_id tree_id locale object_id}] \
-	[export_vars -no_empty -base category-link-add-4 {link_category_id category_id tree_id locale object_id}]
+	[export_vars -no_empty -base category-links-view {{category_id $link_category_id} {tree_id $link_tree_id} locale object_id  ctx_id}] \
+	[export_vars -no_empty -base category-link-add-3 {link_category_id category_id tree_id locale object_id ctx_id}] \
+	[export_vars -no_empty -base category-link-add-4 {link_category_id category_id tree_id locale object_id ctx_id}]
     }
 
 template::list::create \
@@ -63,7 +66,7 @@
     -bulk_actions {
 	"Add links" "category-link-add-3" "Add category links to checked categories"
 	"Add bidirectional links" "category-link-add-4" "Add bidirectional category links to checked categories"
-    } -bulk_action_export_vars { category_id tree_id locale object_id } \
+    } -bulk_action_export_vars { category_id tree_id locale object_id ctx_id} \
     -elements {
 	links {
 	    sub_class narrow