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