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.46 -r1.47
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl	25 Sep 2007 15:22:39 -0000	1.46
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl	10 Oct 2007 01:03:07 -0000	1.47
@@ -746,8 +746,12 @@
 
     # Output header row
     set __cols [list]
+    set __csv_cols [list]
     foreach __element_name $list_properties(display_elements) {
-        lappend __cols [csv_quote $__element_name]
+         template::list::element::get_reference -list_name $name -element_name $__element_name
+        if {!$element_properties(hide_p)} {
+            lappend __csv_cols [csv_quote $__element_name]
+        }
     }
     append __output "\"[join $__cols "\",\""]\"\n"
 
@@ -757,7 +761,7 @@
 
         set __cols [list]
 
-        foreach __element_name $list_properties(display_elements) {
+        foreach __element_name $__csv_cols {
             template::list::element::get_reference \
                 -list_name $__list_name \
                 -element_name $__element_name \