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

fixed a bunch of bugs

Browse source
This commit is contained in:
JT Smith 2005-05-23 15:02:23 +00:00
parent 3b5a7d6f52
commit fd57cbaa51
8 changed files with 25 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/HTTP.pm
View file

@ -80,7 +80,12 @@ sub getHeader {
$params{"-cookie"} = $session{http}{cookie};
my $status = getStatus();
if($session{env}{MOD_PERL}) {
my $r = Apache->request;
my $r;
if ($$mod_perl::VERSION >= 1.999023) {
$r = Apache2::RequestUtil->request;
} else {
$r = Apache->request;
}
if(defined($r)) {
$r->custom_response($status, '<!-- '.$session{http}{statusDescription}.' -->' );
$r->status($status);