Index: openacs-4/packages/bookmarks/www/bookmarks-check.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bookmarks/www/bookmarks-check.tcl,v diff -u -r1.4 -r1.5 --- openacs-4/packages/bookmarks/www/bookmarks-check.tcl 10 Sep 2002 22:22:26 -0000 1.4 +++ openacs-4/packages/bookmarks/www/bookmarks-check.tcl 11 Dec 2003 21:39:58 -0000 1.5 @@ -55,12 +55,18 @@ # We want to give the user something to look at before we start contacting # the foreign hosts +set cmd [list ad_context_bar --] +foreach elem [bm_context_bar_args "\"$page_title\"" $viewed_user_id] { + lappend cmd $elem +} +set context_bar [eval $cmd] + ReturnHeaders ns_write "[ad_header $page_title] - +$context_bar

$page_title

-[eval ad_context_bar [bm_context_bar_args "\"$page_title\"" $viewed_user_id]] +
"