Index: openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl	29 Apr 2004 15:56:05 -0000	1.1
+++ openacs-4/contrib/packages/cop-base/lib/cop-sidebar.tcl	14 May 2004 12:36:33 -0000	1.2
@@ -50,9 +50,11 @@
 # Stuff for related items
 cop::relation::get_related -object_id $displayed_object_id -datasource related
 
-
 # mapped categories:
-set catass_list [category::list::get_pretty_list [category::get_mapped_categories $displayed_object_id]]
+set catass_list [category::list::get_pretty_list \
+                     -category_link_eval "${url}categories/?cat=\$__category_id" \
+                     [category::get_mapped_categories $displayed_object_id]]
+set cat_url [export_vars -base ${url}categories/categorize -override [list [list object_id $displayed_object_id]] object_id]
 
 # dummy for debug
 set foo {}