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.30.2.1 -r1.30.2.2
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	10 Apr 2008 12:07:35 -0000	1.30.2.1
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	21 Apr 2008 10:33:30 -0000	1.30.2.2
@@ -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
   }