Index: openacs-4/packages/dotlrn-homework/www/master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/master.tcl,v diff -u -r1.3.2.1 -r1.3.2.2 --- openacs-4/packages/dotlrn-homework/www/master.tcl 7 Sep 2021 12:20:26 -0000 1.3.2.1 +++ openacs-4/packages/dotlrn-homework/www/master.tcl 7 Sep 2021 12:23:20 -0000 1.3.2.2 @@ -2,6 +2,7 @@ Master } { title:optional + {context_bar ""} } if {![info exists title]} { @@ -11,12 +12,12 @@ set title "Homework" } } -set cmd [list ad_context_bar -node_id [site_node::get_parent_id -node_id [ad_conn node_id]] --] -foreach elem $context_bar { - lappend cmd $elem -} -set context_bar [eval $cmd] +set context_bar [ad_context_bar \ + -node_id [site_node::get_parent_id \ + -node_id [ad_conn node_id]] -- \ + {*}$context_bar] + # Local variables: # mode: tcl # tcl-indent-level: 4