From 5b76f43134d5a78378c162ea980ddab31db089cb Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Mon, 14 Dec 2009 03:36:34 +0000
Subject: [PATCH] Fix filename for Excel spreadsheet reports

---
 httemplate/search/elements/search-xls.html | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/httemplate/search/elements/search-xls.html b/httemplate/search/elements/search-xls.html
index 8a05e477c..8323f55de 100644
--- a/httemplate/search/elements/search-xls.html
+++ b/httemplate/search/elements/search-xls.html
@@ -13,7 +13,9 @@ my %opt    = %{ $args{'opt'} };
 
 #http://support.microsoft.com/kb/199841
 http_header('Content-Type' => 'application/vnd.ms-excel' );
-
+http_header('Content-Disposition' => 
+  'attachment;filename="'.($opt{'name'} || PL($opt{'name_singular'}) ).'.xls"');
+ 
 #http://support.microsoft.com/kb/812935
 #http://support.microsoft.com/kb/323308
 $HTML::Mason::Commands::r->headers_out->{'Cache-control'} = 'max-age=0';
@@ -79,5 +81,5 @@ foreach my $row ( @$rows ) {
 $workbook->close();# or die "Error creating .xls file: $!";
 
 http_header('Content-Length' => length($data) );
- 
+
 </%init>
-- 
2.11.0