bugfixing language selector

Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/tools/koha-news.pl b/tools/koha-news.pl
index 3c06f91..b0196d2 100755 (executable)
--- 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 ),
       };
 }