Fixed a bug where 404 and 403 errors under mod perl would cause duplicate output.

This commit is contained in:
JT Smith 2002-06-05 04:48:21 +00:00
parent d6705a0bb6
commit a465864449
2 changed files with 45 additions and 5 deletions

View file

@ -44,7 +44,15 @@ sub _getPageInfo {
($pageId) = WebGUI::SQL->quickArray("select pageId from page where urlizedTitle='".$pageName."'",$_[1]);
if ($pageId eq "") {
$pageId = $_[2];
$session{header}{status} = '404';
if($ENV{"MOD_PERL"}) {
my $r = Apache->request;
if(defined($r)) {
$r->custom_response(404, $session{page}{url} );
$r->status(404);
}
} else {
$session{header}{status} = '404';
}
}
} else {
$pageId = $session{setting}{defaultPage};