fugfixes from Dombes Abbey work

[koha.git] / member.pl

diff --git a/member.pl b/member.pl
index ace4d02..b66c165 100755 (executable)
--- a/member.pl
+++ b/member.pl
@@ -1,5 +1,7 @@
 #!/usr/bin/perl
 
+# $Id$
+
 #script to do a borrower enquiery/brin up borrower details etc
 #written 20/12/99 by chris@katipo.co.nz
 
@@ -29,11 +31,14 @@ use HTML::Template;
 
 my $input = new CGI;
 
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme, language => 'fi' );
-my $template = HTML::Template->new( filename => $tmpldata{'path'}, 
-                                   die_on_bad_params => 0,
-                                   loop_context_vars => 1 );
+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 );
+my $template = gettemplate("members/member.tmpl");
 
 my $member=$input->param('member');
 $member=~ s/\,//g;
@@ -64,5 +69,5 @@ $template->param( startmenumember => join ('', startmenu('member')),
                        endmenumember   => join ('', endmenu('member')),
                        member          => $member,
                        resultsloop     => \@resultsdata );
-                       
+
 print "Content-Type: text/html\n\n", $template->output;