Index: openacs-4/packages/categories/www/cadmin/category-link-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/category-link-delete.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/category-link-delete.tcl	1 Mar 2005 00:01:26 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-link-delete.tcl	6 Nov 2008 15:50:44 -0000	1.5
@@ -10,6 +10,7 @@
     tree_id:integer
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -27,9 +28,11 @@
 set allowed_link_ids [list]
 set page_title "Delete links with 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"] \
     "Delete Links"
 
 multirow create category_links linked_category_id linked_tree_id direction
@@ -43,17 +46,17 @@
 
 multirow extend category_links tree_view_url category_view_url tree_name category_name
 multirow foreach category_links {
-    set tree_view_url [export_vars -no_empty -base tree-view { {tree_id $linked_tree_id} locale object_id }]
-    set category_view_url [export_vars -no_empty -base category-links-view { {category_id $linked_category_id} {tree_id $linked_tree_id} locale object_id }]
+    set tree_view_url [export_vars -no_empty -base tree-view { {tree_id $linked_tree_id} locale object_id  ctx_id}]
+    set category_view_url [export_vars -no_empty -base category-links-view { {category_id $linked_category_id} {tree_id $linked_tree_id} locale object_id  ctx_id}]
 
     set tree_name [category_tree::get_name $linked_tree_id $locale]
     set category_name [category::get_name $linked_category_id $locale]
 }
 
 multirow sort category_links -dictionary tree_name category_name direction
 
-set delete_url [export_vars -no_empty -base category-link-delete-2 { {link_id:multiple $allowed_link_ids} category_id tree_id locale object_id }]
-set cancel_url [export_vars -no_empty -base category-links-view { category_id tree_id locale object_id }]
+set delete_url [export_vars -no_empty -base category-link-delete-2 { {link_id:multiple $allowed_link_ids} category_id tree_id locale object_id  ctx_id}]
+set cancel_url [export_vars -no_empty -base category-links-view { category_id tree_id locale object_id  ctx_id}]
 
 template::list::create \
     -name category_links \