Index: openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl,v diff -u -N -r1.4 -r1.4.2.1 --- openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl 7 Aug 2017 23:48:01 -0000 1.4 +++ openacs-4/packages/acs-templating/tcl/0-acs-templating-procs.tcl 17 Dec 2019 12:05:42 -0000 1.4.2.1 @@ -29,33 +29,33 @@ switch [llength $arglist] { - 1 { + 1 { # empty tag eval "proc template_tag_$name { params } { - + template::adp_tag_init $name - + $body return \"\" }" if { !$exists_p } { - ns_adp_registerscript $name template_tag_$name + ns_adp_registerscript $name template_tag_$name } } - 2 { + 2 { # balanced tag so push on/pop off tag name and parameters on a stack eval "proc template_tag_$name { chunk params } { - + template::adp_tag_init $name variable template::tag_stack lappend tag_stack \[list $name \$params\] - + $body template::util::lpop tag_stack @@ -64,7 +64,7 @@ }" if { !$exists_p } { - ns_adp_registerscript $name /$name template_tag_$name + ns_adp_registerscript $name /$name template_tag_$name } }