fix more syntax warnings

This commit is contained in:
Graham Knop 2008-11-24 01:49:32 +00:00
parent dd90696d7c
commit 09d545197a
2 changed files with 6 additions and 6 deletions

View file

@ -169,11 +169,11 @@ The WebGUI::User object of the user to retrieve the message for. Defaults to th
sub getNextMessage { sub getNextMessage {
my $self = shift; my $self = shift;
my $session = $self->session; my $session = $self->session;
my $message = shift; my $baseMessage = shift;
my $user = shift || $session->user; my $user = shift || $session->user;
my $sql = $self->getMessageSql($user,{ my $sql = $self->getMessageSql($user,{
whereClause => "ibox.dateStamp > ".$message->get("dateStamp"), whereClause => "ibox.dateStamp > ".$baseMessage->get("dateStamp"),
sortBy => "ibox.dateStamp", sortBy => "ibox.dateStamp",
sortDir => "asc", sortDir => "asc",
limit => 1 limit => 1
@ -203,11 +203,11 @@ The WebGUI::User object of the user to retrieve the message for. Defaults to th
sub getPreviousMessage { sub getPreviousMessage {
my $self = shift; my $self = shift;
my $session = $self->session; my $session = $self->session;
my $message = shift; my $baseMessage = shift;
my $user = shift || $session->user; my $user = shift || $session->user;
my $sql = $self->getMessageSql($user,{ my $sql = $self->getMessageSql($user,{
whereClause => "ibox.dateStamp < ".$message->get("dateStamp"), whereClause => "ibox.dateStamp < ".$baseMessage->get("dateStamp"),
sortBy => "ibox.dateStamp", sortBy => "ibox.dateStamp",
sortDir => "desc", sortDir => "desc",
limit => 1 limit => 1

View file

@ -164,7 +164,7 @@ our $I18N = {
}, },
'detail template help title' => { 'detail template help title' => {
lastUpdated => lastUpdated => 0,
message => q|Matrix Listing Detail Template Variables| message => q|Matrix Listing Detail Template Variables|
}, },