utf8_arrayref($vars->{$k});
}
elsif (ref($vars->{$k}) eq 'HASH'){
- uft8_hashref($vars->{$k});
+ utf8_hashref($vars->{$k});
}
else {
utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k});
@languages = ( $lang, @languages );
}
else {
- $lang = $languages[0];
+ $lang = $languages[0] || 'en';
}
my $theme = 'prog'; # in the event of theme failure default to 'prog' -fbcit
- my $dbh = C4::Context->dbh;
my @themes;
if ( $interface eq "intranet" ) {
@themes = split " ", C4::Context->preference("template");