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 -r1.27 -r1.28 --- openacs-4/packages/acs-subsite/www/shared/parameters.tcl 11 Sep 2024 06:15:48 -0000 1.27 +++ openacs-4/packages/acs-subsite/www/shared/parameters.tcl 11 Mar 2025 18:30:46 -0000 1.28 @@ -14,7 +14,7 @@ } if {$scroll_to ne ""} { - add_body_handler -event load -script [subst -nocommands { + add_body_handler -event load -script [subst -nocommands { const scrollTarget = document.querySelectorAll('#$scroll_to')[0]; window.scrollTo(0, scrollTarget.offsetTop - 90); }] @@ -113,8 +113,11 @@ set html [list size 50] } } + set help_text_suffix [expr {$attr_value eq $default_value \ + ? "(value is default)" + : "(default: $default_value)"}] set elm [list ${parameter_name}:text($widget),optional,nospell \ - {label {$parameter_name}} \ + {label {$parameter_name $help_text_suffix}} \ {help_text {$description}} \ [list html $html]] Index: openacs-4/packages/acs-subsite/www/shared/parameters.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/parameters.xql,v diff -u -r1.5 -r1.6 --- openacs-4/packages/acs-subsite/www/shared/parameters.xql 26 Jul 2018 15:23:16 -0000 1.5 +++ openacs-4/packages/acs-subsite/www/shared/parameters.xql 11 Mar 2025 18:30:46 -0000 1.6 @@ -24,21 +24,22 @@ - + select p.parameter_name, coalesce(p.description, 'No Description') as description, v.attr_value, coalesce(p.section_name, 'main') as section_name, - p.datatype + p.datatype, + p.default_value from apm_parameters p left outer join (select v.parameter_id, v.attr_value from apm_parameter_values v where (v.package_id = :package_id or v.package_id is null)) v on p.parameter_id = v.parameter_id where p.package_key = :package_key and p.scope = :scope - $section_where_clause + $section_where_clause order by case when lower(section_name) = 'deprecated' then null @@ -48,7 +49,7 @@ - + select p.parameter_name as c__parameter_name from apm_parameters p left outer join @@ -63,4 +64,3 @@ -