sub getlanguagecookie {
my ($query) = @_;
my $lang;
my $lang = $query->cookie('KohaOpacLanguage') || '';
if ($query->cookie('KohaOpacLanguage')){
$lang =~ s/[^a-zA-Z_-]*//; #sanitize
$lang = $query->cookie('KohaOpacLanguage') ;
}else{
$lang = $ENV{HTTP_ACCEPT_LANGUAGE};
}
$lang =~ s/[^a-zA-Z_-]*//; #sanitzie
return $lang;
-