Index: openacs-4/packages/acs-templating/acs-templating.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/acs-templating.info,v diff -u -r1.66.2.17 -r1.66.2.18 --- openacs-4/packages/acs-templating/acs-templating.info 16 Sep 2021 08:27:31 -0000 1.66.2.17 +++ openacs-4/packages/acs-templating/acs-templating.info 15 Oct 2021 10:12:43 -0000 1.66.2.18 @@ -9,7 +9,7 @@ f t - + OpenACS Templating library. 2021-09-15 @@ -27,7 +27,7 @@ GPL version 2 3 - + Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v diff -u -r1.43.2.7 -r1.43.2.8 --- openacs-4/packages/acs-templating/tcl/util-procs.tcl 6 Jul 2020 13:55:54 -0000 1.43.2.7 +++ openacs-4/packages/acs-templating/tcl/util-procs.tcl 15 Oct 2021 10:12:43 -0000 1.43.2.8 @@ -629,6 +629,7 @@ } ad_proc -public template::themed_template { + {-verbose:boolean false} path } { @@ -638,6 +639,7 @@ themed template is returned, otherwise the passed template path. @param path absolute path within the open acs tree (without extension) + @verbose boolean flag; report tried path in the system log @return path to themed template or input value (without extension) } { @@ -646,9 +648,18 @@ } else { set style $path } - set stub [template::resource_path -type templates -style $style -relative] + set stub [template::resource_path \ + {*}[expr {$verbose_p ? "-verbose" : ""}] \ + -type templates -style $style -relative] if {[file readable $::acs::rootdir/$stub.adp]} { + if {$verbose_p} { + ns_log notice "themed_template: found template in $stub" + } return $stub + } else { + if {$verbose_p} { + ns_log notice "themed_template: no themed template found for '$path'" + } } return $path } @@ -670,6 +681,7 @@ } ad_proc -public template::resource_path { + {-verbose:boolean false} -type:required -style:required -relative:boolean @@ -687,6 +699,7 @@ @param relative return optionally the path relative to the OpenACS root directory @param theme_dir theming directory (alternative to determination via subsite), higher priority @param subsite_id subsite_id to determine theming information + @verbose boolean flag; report tried path in the system log @return path of the resource (without extension) @author Gustaf Neumann @@ -712,6 +725,9 @@ if {$theme_dir ne ""} { set path $theme_dir/$type/$style set lookup_path [expr {[file extension $path] eq "" ? "${path}.adp" : $path}] + if {$verbose_p} { + ns_log notice "themed_template: try themed template '$lookup_path'" + } if {![file exists $::acs::rootdir/$lookup_path]} { unset path }