Index: openacs-4/packages/acs-subsite/www/shared/parameters.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.tcl,v
diff -u -N -r1.25.2.1 -r1.25.2.2
--- openacs-4/packages/acs-subsite/www/shared/parameters.tcl 15 Feb 2019 16:24:27 -0000 1.25.2.1
+++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl 30 Apr 2019 18:54:47 -0000 1.25.2.2
@@ -113,7 +113,9 @@
set file_val [ad_parameter_from_file $parameter_name $package_key]
if { $file_val ne "" } {
set display_warning_p 1
- lappend elm [list after_html "
$file_val (*)"]
+ lappend elm [list after_html [subst {
+
$file_val (*)
+ }]]
}
ad_form -extend -name parameters -form [list $elm]
@@ -140,13 +142,19 @@
-package_id $package_id \
-parameter $c__parameter_name \
-value [set $c__parameter_name]
- callback subsite::parameter_changed -package_id $package_id -parameter $c__parameter_name -value [set $c__parameter_name]
+ callback subsite::parameter_changed \
+ -package_id $package_id \
+ -parameter $c__parameter_name \
+ -value [set $c__parameter_name]
} else {
parameter::set_global_value \
-package_key $package_key \
-parameter $c__parameter_name \
-value [set $c__parameter_name]
- callback subsite::global_parameter_changed -package_key $package_key -parameter $c__parameter_name -value [set $c__parameter_name]
+ callback subsite::global_parameter_changed \
+ -package_key $package_key \
+ -parameter $c__parameter_name \
+ -value [set $c__parameter_name]
}
}
}