From c1f801e63ac7dc8cf5e3e1207a1cd92ff9b5081f Mon Sep 17 00:00:00 2001
From: Paul POULAIN <paul.poulain@biblibre.com>
Date: Sat, 1 Mar 2008 06:09:50 +1300
Subject: [PATCH] bugfixing language selector

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 tools/koha-news.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tools/koha-news.pl b/tools/koha-news.pl
index 3c06f91eaf..b0196d23f6 100755
--- a/tools/koha-news.pl
+++ b/tools/koha-news.pl
@@ -60,8 +60,8 @@ my $tlangs = getTranslatedLanguages() ;
 foreach my $language ( @$tlangs ) {
     push @lang_list,
       {
-        language => $language->{'language'},
-        selected => ( $new_detail->{lang} eq $language->{'language'} ? 1 : 0 ),
+        language => $language->{'rfc4646_subtag'},
+        selected => ( $new_detail->{lang} eq $language->{'rfc4646_subtag'} ? 1 : 0 ),
       };
 }
 
-- 
2.39.5