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

Fixed a bug where insufficent privileges messages would cause duplicate output under mod_perl.

Browse source
This commit is contained in:
JT Smith 2002-06-09 16:33:15 +00:00
parent c57f6ddb94
commit e604849205
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Privilege.pm
View file

@ -23,7 +23,7 @@ sub adminOnly {
if($session{env}{MOD_PERL}) {
my $r = Apache->request;
if(defined($r)) {
$r->custom_response(403, $session{page}{url} );
$r->custom_response(403, '<!--Admin Only-->' );
$r->status(403);
}
} else {
@ -92,7 +92,7 @@ sub insufficient {
if($session{env}{MOD_PERL}) {
my $r = Apache->request;
if(defined($r)) {
$r->custom_response(403, $session{page}{url} );
$r->custom_response(403, '<!--Insufficient Privileges-->' );
$r->status(403);
}
} else {
@ -128,7 +128,7 @@ sub noAccess {
if($session{env}{MOD_PERL}) {
my $r = Apache->request;
if(defined($r)) {
$r->custom_response(403, $session{page}{url} );
$r->custom_response(403, '<!--No Access-->' );
$r->status(403);
}
} else {
@ -150,7 +150,7 @@ sub notMember {
if($session{env}{MOD_PERL}) {
my $r = Apache->request;
if(defined($r)) {
$r->custom_response(403, $session{page}{url} );
$r->custom_response(403, '<!--Not A Member-->' );
$r->status(403);
}
} else {