From fc8808c5c0b346eef38319082c0888c428b0688a Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sun, 13 Oct 2002 03:03:57 +0000
Subject: [PATCH] Allow programmer to set the filename of a resulting file.

---
 lib/WebGUI/Session.pm | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Session.pm b/lib/WebGUI/Session.pm
index ca60b010c..6a21500da 100644
--- a/lib/WebGUI/Session.pm
+++ b/lib/WebGUI/Session.pm
@@ -179,13 +179,18 @@ sub end {
 
 #-------------------------------------------------------------------
 sub httpHeader {
-	my ($charset);
-	($charset) = WebGUI::SQL->quickArray("select characterSet from language where languageId=".$session{user}{language});
-	$charset = "ISO-8859-1" if ($charset eq "");
+	unless ($session{header}{charset}) {
+		my ($charset) = WebGUI::SQL->quickArray("select characterSet from language where languageId=".$session{user}{language});
+		$session{header}{charset} = $charset || "ISO-8859-1";
+	}
+	if ($session{header}{filename} && $session{header}{mimetype} eq "text/html") {
+		$session{header}{mimetype} = "application/octet-stream";
+	}
 	return $session{cgi}->header( 
 		-type => $session{header}{mimetype}.'; charset='.$charset,
 		-cookie => $session{header}{cookie}, 
-		-status => $session{header}{status} 
+		-status => $session{header}{status},
+		-attachment => $session{header}{filename}
 		);
 }