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

Clean up Session::Privilege code.

Browse source 
Add $! to errorHandler message in Session::Icon when toolbar dir cannot be opened.
Change i18n for default toolbar "Default" to be more self explanatory.
This commit is contained in:
Colin Kuskie 2006-10-19 23:19:22 +00:00
parent 052d0ddb15
commit 37aad09679
3 changed files with 5 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Session/Privilege.pm
View file

@ -58,8 +58,7 @@ sub adminOnly {
my $self = shift;
my $i18n = WebGUI::International->new($self->session);
$self->session->http->setStatus("401", "Admin Only");
my ($output, $sth, @data);
$output = '<h1>'.$i18n->get(35).'</h1>';
my $output = '<h1>'.$i18n->get(35).'</h1>';
$output .= $i18n->get(36);
return $self->session->style->userStyle($output);
}
@ -91,10 +90,8 @@ sub insufficient {
my $self = shift;
my $i18n = WebGUI::International->new($self->session);
$self->session->http->setStatus("401", "Insufficient Privileges");
my ($output);
$output = '<h1>'.$i18n->get(37).'</h1>';
my $output = '<h1>'.$i18n->get(37).'</h1>';
$output .= $i18n->get(38);
$output .= '<p>';
return $self->session->style->userStyle($output);
}
@ -155,7 +152,6 @@ sub notMember {
my ($output);
$output = '<h1>'.$i18n->get(345).'</h1>';
$output .= $i18n->get(346);
$output .= '<p>';
return $self->session->style->userStyle($output);
}