From 074f28c90479380eb0248e0b36f30c60bff40764 Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Tue, 19 Jan 2010 03:24:27 +0000
Subject: [PATCH] Fix mime type for CSV files, RT#1526

---
 httemplate/search/elements/search-csv.html | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/httemplate/search/elements/search-csv.html b/httemplate/search/elements/search-csv.html
index 21822700e..9eb1b66d1 100644
--- a/httemplate/search/elements/search-csv.html
+++ b/httemplate/search/elements/search-csv.html
@@ -39,7 +39,10 @@ my $rows   = $args{'rows'};
 my %opt    = %{ $args{'opt'} };
 
 #http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
-http_header('Content-Type' => 'text/plain' );
+#http_header('Content-Type' => 'text/plain' );
+http_header('Content-Type' => 'text/csv' ); # So saith RFC 4180
+http_header('Content-Disposition' => 
+  'attachment;filename="'.($opt{'name'} || PL($opt{'name_singular'}) ).'.csv"');
 
 my $quote_char = '"';
 $quote_char = $opt{csv_quote} if exists($opt{csv_quote});
-- 
2.11.0