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 -r1.25.2.1 --- openacs-4/packages/acs-subsite/www/shared/parameters.tcl 26 Jul 2018 15:23:16 -0000 1.25 +++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl 15 Feb 2019 16:24:27 -0000 1.25.2.1 @@ -1,6 +1,6 @@ ad_page_contract { Parameters page. - + @author Lars Pind (lars@collaboraid.biz) @creation-date 2003-06-13 @cvs-id $Id$ @@ -48,17 +48,17 @@ if { $scope ne "global" } { if {![info exists package_key] || $package_key eq ""} { - set package_key [apm_package_key_from_id $package_id] + set package_key [apm_package_key_from_id $package_id] } set global_parameters [db_list get_global_parameters { - select parameter_name from apm_parameters where package_key = :package_key and scope = 'global' - }] + select parameter_name from apm_parameters where package_key = :package_key and scope = 'global' + }] if {[llength $global_parameters] > 0} { - # - # Just provide a link to the global parameters in case these exist - # - set global_parameter_label [join [lsort $global_parameters] ", "] - set global_param_url [export_vars -base /shared/parameters {package_key return_url package_id {scope global}}] + # + # Just provide a link to the global parameters in case these exist + # + set global_parameter_label [join [lsort $global_parameters] ", "] + set global_param_url [export_vars -base /shared/parameters {package_key return_url package_id {scope global}}] } } @@ -111,15 +111,15 @@ [list html $html]] set file_val [ad_parameter_from_file $parameter_name $package_key] - if { $file_val ne "" } { - set display_warning_p 1 + if { $file_val ne "" } { + set display_warning_p 1 lappend elm [list after_html "
$file_val (*)"] } - + ad_form -extend -name parameters -form [list $elm] set param($parameter_name) $attr_value - + incr counter } @@ -137,9 +137,9 @@ if { [info exists $c__parameter_name] } { if { $scope eq "instance" } { parameter::set_value \ - -package_id $package_id \ - -parameter $c__parameter_name \ - -value [set $c__parameter_name] + -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 \