#!/usr/bin/perl
+# $Id$
+
#script to do a borrower enquiery/brin up borrower details etc
#written 20/12/99 by chris@katipo.co.nz
my $theme = $input->param('theme') || "default";
# only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme, language => 'fi' );
+#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 = 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;
endmenumember => join ('', endmenu('member')),
member => $member,
resultsloop => \@resultsdata );
-
+
print "Content-Type: text/html\n\n", $template->output;