Index: openacs-4/www/blank-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v diff -u -r1.51 -r1.52 --- openacs-4/www/blank-master.tcl 21 Sep 2010 22:54:10 -0000 1.51 +++ openacs-4/www/blank-master.tcl 17 Oct 2010 21:06:09 -0000 1.52 @@ -84,7 +84,6 @@ set css [parameter::get -package_id [ad_conn subsite_id] -parameter ThemeCSS -default ""] if { $css ne "" } { - set params [list] # DRB: Need to handle two cases, the lame first attempt and the more complete current # attempt which allows you to specify all of the parameters to template::head::add_css @@ -95,6 +94,7 @@ if { [llength $css] == 2 && [llength [lindex $css 0]] == 1 } { template::head::add_css -href [lindex $css 0] -media [lindex $css 1] } else { + set params [list] foreach param $css { lappend params -[lindex $param 0] [lindex $param 1] } @@ -246,8 +246,9 @@ } } -template::head::prepare_multirows -set event_handlers [template::get_body_event_handlers] # Retrieve headers and footers set header [template::get_header_html] set footer [template::get_footer_html] + +template::head::prepare_multirows +set event_handlers [template::get_body_event_handlers]