oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Allow programmer to set the filename of a resulting file.

Browse source
This commit is contained in:
JT Smith 2002-10-13 03:03:57 +00:00
parent 7620eb2ee8
commit fc8808c5c0
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/WebGUI/Session.pm
View file

@ -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}
);
}