Index: openacs-4/packages/ams/tcl/ams-widget-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/ams-widget-procs.tcl,v diff -u -r1.17 -r1.18 --- openacs-4/packages/ams/tcl/ams-widget-procs.tcl 15 Dec 2005 22:50:16 -0000 1.17 +++ openacs-4/packages/ams/tcl/ams-widget-procs.tcl 18 Dec 2005 18:23:22 -0000 1.18 @@ -226,6 +226,10 @@ foreach {delivery_address municipality region postal_code country_code additional_text postal_type} $value {} return [template::util::address::html_view $delivery_address $municipality $region $postal_code $country_code $additional_text $postal_type] } + value_list { + foreach {delivery_address municipality region postal_code country_code additional_text postal_type} $value {} + return [list [list delivery_address $delivery_address] [list municipality $municipality] [list region $region] [list postal_code $postal_code] [list country_code $country_code] [list additional_text $additional_text] [list postal_type $postal_type]] + } csv_value { # not yet implemented }