From e89d044546b9dd0c69d776bdc2244b7d5cb5879f Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Wed, 30 Oct 2002 17:05:23 +0000
Subject: [PATCH] Prepends ' default' to $themes and ' en' to $lang so that
 themes will still work even if one of the opacthemes or opaclanguages system
 preferences is not explicity set.  If you est opaclanguages to 'fr' but dont'
 set opacthemes, theme will still default to 'default'.

---
 C4/Output.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/C4/Output.pm b/C4/Output.pm
index 5c358abd7d..7dc37b457e 100644
--- a/C4/Output.pm
+++ b/C4/Output.pm
@@ -181,6 +181,7 @@ sub themelanguage {
   my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='opaclanguages'");
   $sth->execute;
   my ($lang) = $sth->fetchrow;
+  $lang.=" en";
   $sth->finish;
   my @languages = split " ", $lang;
 
@@ -188,6 +189,7 @@ sub themelanguage {
   my $sth=$dbh->prepare("SELECT value FROM systempreferences WHERE variable='opacthemes'");
   $sth->execute;
   my ($theme) = $sth->fetchrow;
+  $theme.=" default";
   $sth->finish;
   my @themes = split " ", $theme;
 
-- 
2.39.5