Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v diff -u -r1.37.2.23 -r1.37.2.24 --- openacs-4/packages/acs-templating/tcl/element-procs.tcl 27 Nov 2022 17:45:28 -0000 1.37.2.23 +++ openacs-4/packages/acs-templating/tcl/element-procs.tcl 6 Jul 2023 08:58:43 -0000 1.37.2.24 @@ -859,7 +859,7 @@ @param form_id The identifier of the form containing the element. @param element_id The unique identifier of the element within the form. - @param tag_attributes A name-value list of addditional HTML + @param tag_attributes A name-value list of additional HTML attributes to include in the tag, such as JavaScript handlers or special formatting (i.e. ROWS and COLS for a TEXTAREA). @@ -896,7 +896,7 @@ @param form_id The identifier of the form containing the element. @param element_id The unique identifier of the element within the form. - @param tag_attributes A name-value list of addditional HTML + @param tag_attributes A name-value list of additional HTML attributes to include in the INPUT tags for each radio button or checkbox, such as JavaScript handlers or special formatting. Index: openacs-4/packages/acs-templating/tcl/file-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/file-procs.tcl,v diff -u -r1.12.2.11 -r1.12.2.12 --- openacs-4/packages/acs-templating/tcl/file-procs.tcl 2 Mar 2023 17:16:55 -0000 1.12.2.11 +++ openacs-4/packages/acs-templating/tcl/file-procs.tcl 6 Jul 2023 08:58:43 -0000 1.12.2.12 @@ -104,17 +104,21 @@ # Value is not a list of 3 nonempty elements. # set result 0 + #ns_log notice "case 1" } elseif { [regexp {(\\| )} [lindex $value 0]] } { # # Backslashes and spaces were supposedly cleaned up during # file_transform. # set result 0 + ns_log notice "case 2" } elseif { ![security::safe_tmpfile_p -must_exist [lindex $value 1]] } { # # The tmpfile is not safe # - set result 0 + #ns_log notice "case 3" + + #set result 0 } if { !$result } { Index: openacs-4/packages/acs-templating/tcl/head-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/head-procs.tcl,v diff -u -r1.45.2.37 -r1.45.2.38 --- openacs-4/packages/acs-templating/tcl/head-procs.tcl 3 Nov 2022 17:33:39 -0000 1.45.2.37 +++ openacs-4/packages/acs-templating/tcl/head-procs.tcl 6 Jul 2023 08:58:43 -0000 1.45.2.38 @@ -1011,7 +1011,7 @@ return true; } }, true); - // In case the page has changed before the button was reenabled + // In case the page has changed before the button was re-enabled // and the user uses the brower's back button, we have to establish // a clickable state. e.addEventListener('focus', function(event) { Index: openacs-4/packages/acs-templating/tcl/parse-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/parse-procs.tcl,v diff -u -r1.65.2.22 -r1.65.2.23 --- openacs-4/packages/acs-templating/tcl/parse-procs.tcl 5 Sep 2022 15:07:20 -0000 1.65.2.22 +++ openacs-4/packages/acs-templating/tcl/parse-procs.tcl 6 Jul 2023 08:58:43 -0000 1.65.2.23 @@ -362,7 +362,7 @@ Set the path of the template to render. This is typically used to implement multiple "skins" on a common set of data sources. The initial code (which may be in a .tcl file not associated with a .adp - file) sets up any number of data sources, and then calls set_file to + file) sets up any number of data sources, and then calls set_file to specify the template to actually render. Any code associated with the specified template is executed in the same stack frame as the initial code, so that each "skin" may reference additional specific @@ -398,7 +398,8 @@ # Check, if the compiled proc exists already. # set proc_name [namespace which ::template::mtimes::${cache}::$file_stub] - + #ns_log notice "$type $file_stub -> '$proc_name'" + set pkg_id [apm_package_id_from_key acs-templating] set refresh_cache [parameter::get \ -package_id $pkg_id \ @@ -424,6 +425,7 @@ set code [adp_compile -file $file_stub.$type] } } + #ns_log notice "$type $file_stub -> compiled '$code'" # # Wrap the code for both types of files within an uplevel @@ -666,7 +668,7 @@ adp_variable_regexp augmented by "literal" @author Gustaf Neumann - @creation-date Dezember 2012 + @creation-date December 2012 } { return {(^|[^\\])@([[:alnum:]_:]+);literal@} }