Adding some Error Proof on C4::output
authorHenri-Damien LAURENT <henridamien.laurent@biblibre.com>
Fri, 20 Feb 2009 08:19:10 +0000 (09:19 +0100)
committerHenri-Damien LAURENT <henridamien.laurent@biblibre.com>
Mon, 13 Jul 2009 10:42:37 +0000 (12:42 +0200)
$query was meant to be always defined.
In case we use Output in a non CGI it is not the case.

C4/Output.pm

index 5bebf6c..15d5fa4 100644 (file)
@@ -141,7 +141,7 @@ sub themelanguage {
               getTranslatedLanguages($interface,'prog') )
       if $http_accept_language;
     # But, if there's a cookie set, obey it
-    $lang = $query->cookie('KohaOpacLanguage') if $query->cookie('KohaOpacLanguage');
+    $lang = $query->cookie('KohaOpacLanguage') if (defined $query && $query->cookie('KohaOpacLanguage'));
     # Fall back to English
     my @languages;
     if ($interface eq 'intranet') {