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.1.2.9 -r1.1.2.10 --- openacs-4/packages/acs-templating/tcl/list-procs.tcl 10 Aug 2003 13:22:32 -0000 1.1.2.9 +++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 19 Aug 2003 12:45:11 -0000 1.1.2.10 @@ -831,19 +831,24 @@ ad_proc -private template::list::prepare_for_rendering { {-name:required} } { - set level [template::adp_level] + set __level [template::adp_level] # Provide a reference to the list properties for use by the list template # This one is named __list_properties to avoid getting scrambled by below multirow get_reference -name $name -local_name __list_properties + # Upvar other variables passed in through the pass_properties property + foreach var $__list_properties(pass_properties) { + upvar #$__level $var $var + } + # # Dynamic columns: display_eval, link_url_eval, aggregate # if { $__list_properties(dynamic_cols_p) || $__list_properties(aggregates_p) } { foreach element_ref $__list_properties(element_refs) { - upvar #$level $element_ref element_properties + upvar #$__level $element_ref element_properties # display_eval, link_url_eval foreach eval_property { display link_url } { @@ -883,7 +888,7 @@ template::multirow foreach $__list_properties(multirow) { foreach element_ref $__list_properties(element_refs) { - upvar #$level $element_ref __element_properties + upvar #$__level $element_ref __element_properties # display_eval, link_url_eval foreach eval_property { display link_url } {