use strict;
+use warnings;
use CGI;
use C4::Auth; # get_template_and_user
use C4::Output;
use C4::Members; # GetMember
use C4::NewsChannels; # get_opac_news
use C4::Acquisition; # GetRecentAcqui
-use C4::Languages qw(getTranslatedLanguages);
+use C4::Languages qw(getTranslatedLanguages accept_language);
my $input = new CGI;
my $dbh = C4::Context->dbh;
$news_lang = $lang[0];
}
}
+ if (not $news_lang) {
+ my @languages = split ",", C4::Context->preference("opaclanguages");
+ $news_lang = @languages[0];
+ }
}
$news_lang = $news_lang ? $news_lang : 'en' ;