Index: openacs-4/packages/theme-selva/www/doc/selva-blank-master.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/theme-selva/www/doc/selva-blank-master.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/theme-selva/www/doc/selva-blank-master.tcl 18 Sep 2005 11:49:37 -0000 1.3 +++ openacs-4/packages/theme-selva/www/doc/selva-blank-master.tcl 28 Jun 2015 13:01:06 -0000 1.4 @@ -14,7 +14,7 @@ set doc_type {} } -if { [template::util::is_nil title] } { +if { ![info exists title] } { set title [ad_conn instance_name] } @@ -53,7 +53,7 @@ # Additional Body Attributes -if {[exists_and_not_null body_attributes]} { +if {([info exists body_attributes] && $body_attributes ne "")} { foreach body_attribute $body_attributes { multirow append attribute [lindex $body_attribute 0] [lindex $body_attribute 1] } @@ -92,7 +92,7 @@ # Toggle translator mode link set acs_lang_url [apm_package_url_from_key "acs-lang"] -if { [empty_string_p $acs_lang_url] } { +if { $acs_lang_url eq "" } { set lang_admin_p 0 } else { set lang_admin_p [permission::permission_p \