Index: openacs-4/packages/dotlrn-ecommerce/www/applications.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/www/applications.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/dotlrn-ecommerce/www/applications.tcl	16 Aug 2005 13:50:32 -0000	1.21
+++ openacs-4/packages/dotlrn-ecommerce/www/applications.tcl	17 Aug 2005 15:37:28 -0000	1.22
@@ -356,12 +356,16 @@
 # instead of template::list::write_csv
 
 if {$csv_p == 1} {
-    set csv_cols [list "section_name" "number" "person_name" "member_state" "phone" "comments_text_plain"]
+    set csv_cols {}
+    set all_cols [list "section_name" "number" "person_name" "member_state" "phone" "comments_text_plain"]
     template::list::get_reference -name applications
     set __list_name applications
-    foreach __element_name $csv_cols {
+    foreach __element_name $all_cols {
         template::list::element::get_reference  -list_name $__list_name  -element_name $__element_name  -local_name __element_properties
-        set csv_cols_labels($__element_name) $__element_properties(label)
+	if {!$__element_properties(hide_p)} {
+	    lappend csv_cols $__element_name
+	    set csv_cols_labels($__element_name) $__element_properties(label)
+	}
     }
     
     set csv_as_item_list [list]