From: mark <mark>
Date: Mon, 14 Dec 2009 03:36:34 +0000 (+0000)
Subject: Fix filename for Excel spreadsheet reports
X-Git-Tag: root_of_svc_elec_features~625
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=5b76f43134d5a78378c162ea980ddab31db089cb

Fix filename for Excel spreadsheet reports
---

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>