Bug 6555 : only 10 lists show in the staff client

[koha.git] / C4 / Templates.pm

diff --git a/C4/Templates.pm b/C4/Templates.pm
index ea11aee..4368492 100644 (file)
--- a/C4/Templates.pm
+++ b/C4/Templates.pm
@@ -188,10 +188,9 @@ sub themelanguage {
         @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");