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 -r1.4
--- openacs-4/packages/dotlrn-homework/www/master.tcl	7 Aug 2017 23:48:10 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/master.tcl	3 Sep 2024 15:37:38 -0000	1.4
@@ -1,16 +1,23 @@
+ad_page_contract {
+    Master
+} {
+    title:optional
+    {context_bar ""}
+}
+
 if {![info exists title]} {
     if {[info exists doc(title)]} {
         set title $doc(title)
     } else {
         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