removal of dumpSession.

This commit is contained in:
Matthew Wilson 2006-01-26 05:39:16 +00:00
parent 7d1dfed519
commit 4a3121960f
199 changed files with 379 additions and 404 deletions

View file

@ -39,7 +39,7 @@ returns a hashref with internationalized values for message status.
=cut
sub _status {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
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; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
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; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my ($data, $vars);
return $session->privilege->insufficient() unless ($session->user->isInGroup(2,$session->user->userId));
my $i18n = WebGUI::International->new($session);