Index: openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl,v diff -u -r1.13.2.6 -r1.13.2.7 --- openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 28 Oct 2020 15:39:19 -0000 1.13.2.6 +++ openacs-4/packages/acs-subsite/tcl/apm-callback-procs.tcl 8 Feb 2023 12:35:55 -0000 1.13.2.7 @@ -18,6 +18,13 @@ } { subsite::default::create_app_group -package_id $package_id + + # + # Set the theme-related parameters into the subsite + # + subsite::set_theme \ + -subsite_id $package_id \ + -theme [subsite::get_theme -subsite_id $package_id] } ad_proc -private subsite::package_install {} {} { Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v diff -u -r1.68.2.25 -r1.68.2.26 --- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 6 Feb 2023 15:01:09 -0000 1.68.2.25 +++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl 8 Feb 2023 12:35:55 -0000 1.68.2.26 @@ -855,13 +855,12 @@ foreach {var param} $settings { set default [string trim [set $var]] set value [string trim [parameter::get -parameter $param -package_id $subsite_id]] - regsub -all -- {\s+} $value { } value - regsub -all -- {\s+} $default { } default # - # An empty value is superseded by the default. An empty - # default does not prescribe any value. + # Normalize whitespace to one single space. # - set collect_p [expr {$value eq "" || $default eq "" || $default eq $value}] + regsub -all -- {\s+} $value { } value + regsub -all -- {\s+} $default { } default + set collect_p [expr {$default eq $value}] if {!$collect_p} { ns_log notice "theme '$theme' parameter $var differs on subsite '$subsite_id': default '$default' actual value '$value'" break