Index: openacs-4/packages/xowiki/www/admin/export.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/admin/export.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/xowiki/www/admin/export.tcl	10 Feb 2008 16:50:47 -0000	1.8
+++ openacs-4/packages/xowiki/www/admin/export.tcl	23 May 2008 15:25:46 -0000	1.9
@@ -26,6 +26,10 @@
 }
 
 set content ""
+ns_set put [ns_conn outputheaders] "Content-Type" "text/plain"
+ns_set put [ns_conn outputheaders] "Content-Disposition" "attachment;filename=export.xotcl"
+ReturnHeaders 
+
 foreach item_id $item_ids {
   ::xo::db::CrClass get_instance_from_db -item_id $item_id
   #
@@ -37,13 +41,15 @@
         ![info exists included($template_id)]} {
       ::xo::db::CrClass get_instance_from_db -item_id $template_id
       $template_id volatile
-      append content [$template_id marshall] \n
+      #append content [$template_id marshall] \n
+      ns_write "[$template_id marshall] \n" 
       set included($template_id) 1
     }
   }
   $item_id volatile
   #ns_log notice "exporting $item_id [$item_id name]"
-  append content [$item_id marshall] \n
+  #append content [$item_id marshall] \n
+  ns_write "[$item_id marshall] \n" 
 }
 
-ns_return 200 text/plain $content
+#ns_return 200 text/plain $content