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

View file

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