From 7c7dbf9a6844d008691f11deaab10f846ff9118f Mon Sep 17 00:00:00 2001
From: Chris <cnighswonger@foundations.edu>
Date: Tue, 29 Jan 2008 12:37:20 -0600
Subject: [PATCH] Bugfix for Bug 1790: Theme defaults to prog if other themes
 fail.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Output.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/C4/Output.pm b/C4/Output.pm
index d9714a5533..e6b2659997 100644
--- a/C4/Output.pm
+++ b/C4/Output.pm
@@ -65,6 +65,7 @@ my $path = C4::Context->config('intrahtdocs') . "/prog/en/includes/";
 sub gettemplate {
     my ( $tmplbase, $interface, $query ) = @_;
     ($query) or warn "no query in gettemplate";
+	warn "Template base is $tmplbase";
     my $htdocs;
     if ( $interface ne "intranet" ) {
         $htdocs = C4::Context->config('opachtdocs');
@@ -138,10 +139,8 @@ sub themelanguage {
     } else {
         $lang = $languages[0];
     }      
-    my $theme = 'prog';
-
+    my $theme = 'prog';	# in the event of theme failure default to 'prog' -fbcit
     my $dbh = C4::Context->dbh;
-    my @languages;
     my @themes;
     if ( $interface eq "intranet" ) {
         @themes    = split " ", C4::Context->preference("template");
-- 
2.39.5