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
}