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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Operation/MessageLog.pm
View file

@ -39,7 +39,7 @@ returns a hashref with internationalized values for message status.
=cut
sub _status {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $i18n = WebGUI::International->new($session);
return {"notice"=>$i18n->get(551),"pending"=>$i18n->get(552),"completed"=>$i18n->get(350)};
}
@ -53,7 +53,7 @@ Templated display all messages for the current user.
=cut
sub www_viewMessageLog {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my (@msg, $vars);
return $session->privilege->insufficient() unless ($session->user->isInGroup(2,$session->user->userId));
my $i18n = WebGUI::International->new($session);
@ -99,7 +99,7 @@ Templated display of a single message for the user.
=cut
sub www_viewMessageLogMessage {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my ($data, $vars);
return $session->privilege->insufficient() unless ($session->user->isInGroup(2,$session->user->userId));
my $i18n = WebGUI::International->new($session);