Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	17 Aug 2008 01:21:56 -0000	1.33
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	28 Aug 2008 12:33:42 -0000	1.34
@@ -359,8 +359,8 @@
   Table instproc write_csv {} {
     set output ""
     set line [list]
-    my msg columns=[[self]::__columns children]
     foreach column [[self]::__columns children] {
+      if {[$column exists no_csv]} continue
       set label [$column label]
       if {[regexp {^#(.*)#$} $label _ message_key]} {
         set label [_ $message_key]
@@ -372,6 +372,7 @@
     foreach row [my children] {
       set line [list]
       foreach column [[self]::__columns children] {
+        if {[$column exists no_csv]} continue
 	set value [string map {\" \\\"} [$row set [$column set name]]]
 	lappend line \"$value\"
       }
@@ -414,7 +415,7 @@
 
     Class Field \
 	-superclass ::xo::OrderedComposite::Child \
-	-parameter {label {html {}} {orderby ""} name {richtext false}} \
+	-parameter {label {html {}} {orderby ""} name {richtext false} no_csv} \
 	-instproc init {} {
 	  my set name [namespace tail [self]]
 	} \