Index: openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl,v diff -u -r1.11 -r1.11.2.1 --- openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 4 Oct 2003 03:10:01 -0000 1.11 +++ openacs-4/packages/acs-admin/tcl/apm-admin-procs.tcl 9 Dec 2003 12:05:40 -0000 1.11.2.1 @@ -51,7 +51,11 @@ } else { set title [lindex $args end] set context [concat [list [list $apm_url $apm_title]] $args] - set context_bar [eval ad_context_bar $context] + set cmd [list ad_context_bar --] + foreach elem $context { + lappend cmd $elem + } + set context_bar [eval $cmd] } set header [ad_header $title ""] append body "$header\n" Index: openacs-4/packages/acs-subsite/www/group-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/group-master.tcl,v diff -u -r1.6 -r1.6.2.1 --- openacs-4/packages/acs-subsite/www/group-master.tcl 10 Oct 2003 09:02:18 -0000 1.6 +++ openacs-4/packages/acs-subsite/www/group-master.tcl 9 Dec 2003 12:05:40 -0000 1.6.2.1 @@ -28,8 +28,13 @@ # Context bar if { [template::util::is_nil no_context_p] } { if { ![template::util::is_nil context] } { - set context_bar [eval ad_context_bar -from_node $subsite_node_id $context] + set cmd [list ad_context_bar -from_node $subsite_node_id --] + foreach elem $context { + lappend cmd $elem + } + set context_bar [eval $cmd] } + if [template::util::is_nil context_bar] { set context_bar [ad_context_bar -from_node $subsite_node_id] } Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v diff -u -r1.17.2.1 -r1.17.2.2 --- openacs-4/packages/acs-templating/tcl/query-procs.tcl 26 Nov 2003 15:02:44 -0000 1.17.2.1 +++ openacs-4/packages/acs-templating/tcl/query-procs.tcl 9 Dec 2003 12:05:40 -0000 1.17.2.2 @@ -631,7 +631,7 @@
template::multirow append datasourcename value [value ...]
appends the row to an existing multirow.
template::multirow pop datasourcename
-
pops a row off an existing multirow, returning a list of the rows keys and values
+
pops a row off an existing multirow, returning a list of the rows keys gand values
template::multirow size datasourcename
returns the rowcount
template::multirow columns datasourcename
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.4.6.1 --- 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 9 Dec 2003 12:05:40 -0000 1.4.6.1 @@ -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]] +
" Index: openacs-4/packages/ecommerce/www/contextbar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/Attic/contextbar.tcl,v diff -u -r1.3 -r1.3.2.1 --- openacs-4/packages/ecommerce/www/contextbar.tcl 10 Dec 2002 20:06:18 -0000 1.3 +++ openacs-4/packages/ecommerce/www/contextbar.tcl 9 Dec 2003 12:05:40 -0000 1.3.2.1 @@ -18,7 +18,11 @@ if {[empty_string_p $context_addition]} { set context_bar [ad_context_bar] } else { - set context_bar [eval ad_context_bar $context_addition] + set cmd [list ad_context_bar --] + foreach elem $context_addition { + lappend cmd $elem + } + set context_bar [eval $cmd] } # Check for admin rights to this (the ecommerce) package. Index: openacs-4/packages/ecommerce/www/doc/contextbar.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/doc/contextbar.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/ecommerce/www/doc/contextbar.tcl 10 Dec 2002 20:05:21 -0000 1.2 +++ openacs-4/packages/ecommerce/www/doc/contextbar.tcl 9 Dec 2003 12:05:40 -0000 1.2.2.1 @@ -18,7 +18,11 @@ if {[empty_string_p $context_addition]} { set context_bar [ad_context_bar] } else { - set context_bar [eval ad_context_bar $context_addition] + set cmd [list ad_context_bar --] + foreach elem $context_addition { + lappend cmd $elem + } + set context_bar [eval $cmd] } # Check for admin rights to this (the ecommerce) package. Index: openacs-4/packages/photo-album/www/pa_master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/photo-album/www/pa_master.tcl,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/photo-album/www/pa_master.tcl 10 Jun 2003 10:07:11 -0000 1.1 +++ openacs-4/packages/photo-album/www/pa_master.tcl 9 Dec 2003 12:05:40 -0000 1.1.2.1 @@ -1 +1,7 @@ -set context_bar [eval ad_context_bar $context_list] +set cmd [list ad_context_bar --] +foreach elem $context_list { + lappend cmd $elem +} +set context_bar [eval $cmd] + + Index: openacs-4/www/site-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/site-master.tcl,v diff -u -r1.9.2.1 -r1.9.2.2 --- openacs-4/www/site-master.tcl 24 Nov 2003 17:33:10 -0000 1.9.2.1 +++ openacs-4/www/site-master.tcl 9 Dec 2003 12:05:40 -0000 1.9.2.2 @@ -68,7 +68,11 @@ # Context bar if { [template::util::is_nil no_context_p] } { if { ![template::util::is_nil context] } { - set context_bar [eval ad_context_bar -from_node $subsite_node_id $context] + set cmd [list ad_context_bar -from_node $subsite_node_id --] + foreach elem $context { + lappend cmd $elem + } + set context_bar [eval $cmd] } if [template::util::is_nil context_bar] { set context_bar [ad_context_bar -from_node $subsite_node_id]