From d6f6462bf4526cb78e21fea1f887611a3d6432ae Mon Sep 17 00:00:00 2001
From: arensb <arensb>
Date: Thu, 10 Oct 2002 05:49:52 +0000
Subject: [PATCH] Use the default theme if it wasn't given as a CGI parameter.

---
 member.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/member.pl b/member.pl
index ace4d02790..f042763048 100755
--- a/member.pl
+++ b/member.pl
@@ -29,8 +29,10 @@ use HTML::Template;
 
 my $input = new CGI;
 
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
+my $theme = $input->param('theme') || "default";
+			# only used if allowthemeoverride is set
 my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme, language => 'fi' );
+	# FIXME - Error-checking
 my $template = HTML::Template->new( filename => $tmpldata{'path'}, 
 				    die_on_bad_params => 0,
 				    loop_context_vars => 1 );
-- 
2.39.5