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.38 -r1.39 --- openacs-4/packages/acs-templating/acs-templating.info 14 May 2007 20:30:26 -0000 1.38 +++ openacs-4/packages/acs-templating/acs-templating.info 25 Jul 2007 12:18:04 -0000 1.39 @@ -7,7 +7,7 @@ t t - + OpenACS Templating library. 2007-04-22 @@ -25,16 +25,16 @@ GPL version 2 3 - + - - - + + + 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.34 -r1.35 --- openacs-4/packages/acs-templating/tcl/form-procs.tcl 14 May 2007 20:30:27 -0000 1.34 +++ openacs-4/packages/acs-templating/tcl/form-procs.tcl 25 Jul 2007 12:18:04 -0000 1.35 @@ -328,8 +328,13 @@ -default "standard-lars"]] } - set file_stub [template::get_resource_path]/forms/$style - + # Added support for storing form templates outside acs-templating + if {[regexp {^/(.*)} $style path]} { + set file_stub "[acs_root_dir]$path" + } else { + set file_stub [template::get_resource_path]/forms/$style + } + if { ![file exists "${file_stub}.adp"] } { # We always have a template named 'standard' set file_stub "[template::get_resource_path]/forms/standard" Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v diff -u -r1.43 -r1.44 --- openacs-4/packages/acs-templating/tcl/list-procs.tcl 14 May 2007 20:30:27 -0000 1.43 +++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 25 Jul 2007 12:18:04 -0000 1.44 @@ -954,7 +954,13 @@ -parameter DefaultListStyle \ -default "table"]] } - set file_stub "[template::get_resource_path]/lists/$style" + + # Added support for storing form templates outside acs-templating + if {[regexp {^/(.*)} $style path]} { + set file_stub "[acs_root_dir]$path" + } else { + set file_stub [template::get_resource_path]/lists/$style + } # ensure that the style template has been compiled and is up-to-date template::adp_init adp $file_stub @@ -1533,7 +1539,12 @@ -parameter DefaultListFilterStyle \ -default "filters"] } - set file_stub "[template::get_resource_path]/lists/$style" + # Added support for storing form templates outside acs-templating + if {[regexp {^/(.*)} $style path]} { + set file_stub "[acs_root_dir]$path" + } else { + set file_stub [template::get_resource_path]/lists/$style + } # ensure that the style template has been compiled and is up-to-date template::adp_init adp $file_stub