From: Galen Charlton <galen.charlton@liblime.com>
Date: Sun, 7 Jun 2009 22:02:43 +0000 (+1200)
Subject: bug 2505: enabled warnings in C4::NewsChannels
X-Git-Tag: n_acq_a_porter~26^2~109
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=7bd4980db76cbcbc1f8575b1ba2542f4a8bae0da;p=koha.git

bug 2505: enabled warnings in C4::NewsChannels

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---

diff --git a/C4/NewsChannels.pm b/C4/NewsChannels.pm
index 8cf1ff6d9c..59ab124fe5 100644
--- a/C4/NewsChannels.pm
+++ b/C4/NewsChannels.pm
@@ -18,6 +18,7 @@ package C4::NewsChannels;
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
 
 use C4::Context;
 use C4::Dates qw(format_date);
@@ -279,7 +280,7 @@ sub get_opac_new {
     my $sth = $dbh->prepare("SELECT * FROM opac_news WHERE idnew = ?");
     $sth->execute($idnew);
     my $data = $sth->fetchrow_hashref;
-    $data->{$data->{'lang'}} = 1;
+    $data->{$data->{'lang'}} = 1 if defined $data->{lang};
     $data->{expirationdate} = format_date($data->{expirationdate});
     $data->{timestamp}      = format_date($data->{timestamp});
     $sth->finish;