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.31 -r1.32
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Apr 2008 12:07:03 -0000	1.31
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	15 Apr 2008 09:14:45 -0000	1.32
@@ -299,8 +299,8 @@
   #
   Class Table -superclass OrderedComposite \
       -parameter [expr {[apm_version_names_compare [ad_acs_version] 5.3.0] == 1 ? 
-			{{no_data  "No Data"} {renderer TABLE3}} :
-			{{no_data  "No Data"} {renderer TABLE2}} 
+			{{no_data  "No Data"} {renderer TABLE3} name} :
+			{{no_data  "No Data"} {renderer TABLE2} name} 
 		      }]
   
   Table instproc destroy {} {
@@ -378,6 +378,9 @@
       append output [join $line ,] \n
     }
     #ns_return 200 text/plain $output
+    my instvar name
+    if {![my exists name]} {set name "table"}
+    ns_set put [ns_conn outputheaders] Content-Disposition "attachment;filename=$name.csv"
     ns_return 200 text/csv $output
   }