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

Add tests for NewMail macro. Small refactoring for NewMail macro.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-08 09:11:40 -08:00
parent d4ca728340
commit 7b5b493d9d
2 changed files with 70 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Macro/NewMail.pm
View file

@ -11,6 +11,7 @@ package WebGUI::Macro::NewMail;
#-------------------------------------------------------------------
use strict;
use WebGUI::Inbox;
=head1 NAME
@ -48,15 +49,13 @@ optional css class to assign to the hyperlink
sub process {
my $session = shift;
my @param = @_;
my $class = $param[0];
my $class = $_[0];
my $db = $session->db;
my $i18n = WebGUI::International->new($session);
my $count = WebGUI::Inbox->new($session)->getUnreadMessageCount;
my $output = "";
if($count > 0) {
my $i18n = WebGUI::International->new($session);
$output = sprintf($i18n->get("private message unread display message"),$count);
$output = _createURL($session,$output,$class);
}
@ -64,6 +63,4 @@ sub process {
return $output;
}
1;