Index: openacs-4/www/default-master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/www/default-master.tcl	22 May 2002 09:24:56 -0000	1.4
+++ openacs-4/www/default-master.tcl	6 Sep 2002 21:48:44 -0000	1.5
@@ -12,7 +12,9 @@
 
 if [template::util::is_nil title]     { set title        [ad_system_name]  }
 if [template::util::is_nil signatory] { set signatory    [ad_system_owner] }
-if ![info exists header_stuff]        { set header_stuff {}                }
+if ![template::util::is_nil context] { set context_bar [eval ad_context_bar $context]}
+if [template::util::is_nil context_bar] { set context_bar [ad_context_bar]}
+if ![info exists header_stuff]        { set header_stuff {} }
 
 
 # Attributes
@@ -39,7 +41,7 @@
     regexp {^([^.]*)\.(.*)$} $focus match form_name element_name
     
     template::multirow append \
-            attribute onLoad "javascript:document.forms\['${form_name}'\].elements\['${element_name}'\].focus()"
+            attribute onload "javascript:document.forms\['${form_name}'\].elements\['${element_name}'\].focus()"
 }