Index: openacs-4/www/blank-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/www/blank-master.tcl,v diff -u -r1.52.4.1 -r1.52.4.2 --- openacs-4/www/blank-master.tcl 16 Oct 2013 10:03:12 -0000 1.52.4.1 +++ openacs-4/www/blank-master.tcl 17 Oct 2013 07:41:03 -0000 1.52.4.2 @@ -98,7 +98,7 @@ foreach param $css { lappend params -[lindex $param 0] [lindex $param 1] } - eval [concat template::head::add_css $params] + template::head::add_css {*}$params } } @@ -180,7 +180,7 @@ set lang_list [list [lang::user::language] [lang::system::language]] set tinymce_lang "en" foreach elm $lang_list { - if { [file exists [acs_root_dir]/${tinymce_relpath}/langs/${elm}.js] } { + if { [file exists $::acs::rootdir/${tinymce_relpath}/langs/${elm}.js] } { set tinymce_lang $elm break } @@ -222,11 +222,7 @@ # Determine if developer support is installed and enabled # -set developer_support_p [expr { - [llength [info procs ::ds_show_p]] == 1 && [ds_show_p] -}] - -if {$developer_support_p} { +if {[llength [info commands ::ds_show_p]] == 1 && [ds_show_p]} { template::head::add_css \ -href "/resources/acs-developer-support/acs-developer-support.css" \ -media "all" @@ -242,7 +238,6 @@ -event onload \ -script "acs_Focus('${form_name}', '${element_name}');" \ -identifier "focus" - } }