Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v diff -u -r1.46 -r1.46.2.1 --- openacs-4/packages/acs-templating/tcl/form-procs.tcl 27 Oct 2014 16:40:11 -0000 1.46 +++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 27 Aug 2015 08:06:58 -0000 1.46.2.1 @@ -338,22 +338,20 @@ -default "standard-lars"]] } - # Added support for storing form templates outside acs-templating - if {[regexp {^/(.*)} $style path]} { - set file_stub "$::acs::rootdir$path" - } else { - set file_stub [template::get_resource_path]/forms/$style - } - - if { ![file exists "${file_stub}.adp"] } { + set file_stub [template::resource_path -type forms -style $style] + + if { ![file exists "$file_stub.adp"] } { # We always have a template named 'standard' - set file_stub "[template::get_resource_path]/forms/standard" + set file_stub [template::resource_path -type forms -style standard] } - # set the asset url for images - set assets "[template::get_resource_path]/assets" - # assume resources are under page root (not safe) - regsub "^$::acs::pageroot" $assets {} assets + # the following block seems useless, deactivated for the time being + if {0} { + # set the asset url for images + set assets "[template::get_resource_path]/assets" + # assume resources are under page root (not safe) + regsub "^$::acs::pageroot" $assets {} assets + } # ensure that the style template has been compiled and is up-to-date template::adp_init adp $file_stub