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.18.2.2 -r1.18.2.3 --- openacs-4/packages/acs-templating/tcl/list-procs.tcl 25 Mar 2004 18:36:06 -0000 1.18.2.2 +++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 16 Apr 2004 16:14:58 -0000 1.18.2.3 @@ -2499,19 +2499,20 @@ set list_name [template::get_attribute listtemplate $params name] - # Get an upvar'd reference to list_properties - template::list::get_reference -name $list_name - set style [ns_set iget $params style] + template::adp_append_code "set list_properties(name) [list $list_name]" + template::adp_append_string \ - "\[[list template::list::render -name $list_name -style $style]\]" + "\[template::list::render -name \"$list_name\" -style \"$style\"\]" } template_tag listelement { params } { set element_name [template::get_attribute listelement $params name] + # list_properties will be available, because + template::adp_append_string \ "\[template::list::element::render -list_name \${list_properties(name)} -element_name $element_name\]" } @@ -2528,12 +2529,8 @@ set level [template::adp_level] set list_name [template::get_attribute listfilters $params name] - - # Get an upvar'd reference to list_properties - template::list::get_reference -name $list_name - set style [ns_set iget $params style] template::adp_append_string \ - "\[[list template::list::render_filters -name $list_name -style $style]\]" + "\[template::list::render_filters -name \"$list_name\" -style \"$style\"\]" }