Index: openacs-4/packages/categories/www/cadmin/synonym-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/synonym-delete.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/synonym-delete.tcl	1 Mar 2005 00:01:27 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/synonym-delete.tcl	6 Nov 2008 15:50:44 -0000	1.3
@@ -10,6 +10,7 @@
     tree_id:integer,notnull
     {locale ""}
     object_id:integer,optional
+    ctx_id:integer,optional
 } -properties {
     page_title:onevalue
     context_bar:onevalue
@@ -25,11 +26,13 @@
 set category_name [category::get_name $category_id $locale]
 set page_title "Delete synonyms of category \"$tree_name :: $category_name\""
 
-set context_bar [category::context_bar $tree_id $locale [value_if_exists object_id]]
-lappend context_bar [list [export_vars -no_empty -base synonyms-view { category_id tree_id locale object_id }] "Synonyms of $category_name"] "Delete synonyms"
+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 synonyms-view { category_id tree_id locale object_id ctx_id}] "Synonyms of $category_name"] "Delete synonyms"
 
-set delete_url [export_vars -no_empty -base synonym-delete-2 { synonym_id:multiple category_id tree_id locale object_id }]
-set cancel_url [export_vars -no_empty -base synonyms-view { category_id tree_id locale object_id }]
+set delete_url [export_vars -no_empty -base synonym-delete-2 { synonym_id:multiple category_id tree_id locale object_id ctx_id}]
+set cancel_url [export_vars -no_empty -base synonyms-view { category_id tree_id locale object_id ctx_id}]
 
 
 db_multirow synonyms get_synonyms_to_delete ""