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

fixed a mod perl problem

Browse source
This commit is contained in:
JT Smith 2004-09-20 23:19:21 +00:00
parent 110ce0b79f
commit 5d435ba1f9
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/HTTP.pm
View file

@ -75,14 +75,15 @@ sub getHeader {
} }
} }
$params{"-cookie"} = $session{http}{cookie}; $params{"-cookie"} = $session{http}{cookie};
my $status = getStatus();
if($session{env}{MOD_PERL}) { if($session{env}{MOD_PERL}) {
my $r = Apache->request; my $r = Apache->request;
if(defined($r)) { if(defined($r)) {
$r->custom_response($session{http}{status}, '<!-- '.$session{http}{statusDescription}.' -->' ); $r->custom_response($status, '<!-- '.$session{http}{statusDescription}.' -->' );
$r->status($session{http}{status}); $r->status($status);
} }
} else { } else {
$params{"-status"} = $session{http}{status}.' '.$session{http}{statusDescription}; $params{"-status"} = $status.' '.$session{http}{statusDescription};
} }
return $session{cgi}->header(%params); return $session{cgi}->header(%params);
} }