Index: openacs-4/www/default-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/default-master.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/www/default-master.tcl 3 Jun 2003 11:29:35 -0000 1.10 +++ openacs-4/www/default-master.tcl 4 Jun 2003 01:39:04 -0000 1.11 @@ -10,17 +10,31 @@ # fall back on defaults for title, signatory and header_stuff -if [template::util::is_nil title] { set title [ad_conn instance_name] } -if [template::util::is_nil doc_type] { - set doc_type {} +if { [template::util::is_nil title] } { + set title [ad_conn instance_name] } -if [template::util::is_nil signatory] { set signatory [ad_system_owner] } -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 {} } +if { [template::util::is_nil doc_type] } { + set doc_type {} +} +if { [template::util::is_nil signatory] } { + set signatory [ad_system_owner] +} + +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 template::multirow create attribute key value @@ -44,7 +58,7 @@ # Handle elements wohse name contains a dot regexp {^([^.]*)\.(.*)$} $focus match form_name element_name - # Add safety code to test that the element exists ' + # Add safety code to test that the element exists set header_stuff "$header_stuff