Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

templating stuff : use of gettemplate method

  • Loading branch information...
commit 6e9e3cf3abe7ef3d72e88aad63a43b32c0a70a70 1 parent 495bf81
tipaul authored
View
4 imemberentry.pl
@@ -29,9 +29,7 @@
my $input = new CGI;
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'imemberentry.tmpl', theme => $theme );
-my $template = HTML::Template->new(filename => $tmpldata{'path'}, die_on_bad_params => 0);
+my $template = gettemplate("members/imemberentry.tmpl");
my $member=$input->param('bornum');
if ($member eq ''){
View
4 jmemberentry.pl
@@ -29,9 +29,7 @@
my $input = new CGI;
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'jmemberentry.tmpl', theme => $theme );
-my $template = HTML::Template->new(filename => $tmpldata{'path'}, die_on_bad_params => 0);
+my $template = gettemplate("members/jmemberentry.tmpl");
my $member=$input->param('bornum');
if ($member eq ''){
View
9 member.pl
@@ -33,11 +33,12 @@
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;
View
6 memberentry.pl
@@ -33,9 +33,7 @@
my $input = new CGI;
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'memberentry.tmpl', theme => $theme );
-my $template = HTML::Template->new(filename => $tmpldata{'path'}, die_on_bad_params => 0);
+my $template = gettemplate("members/memberentry.tmpl");
my $member=$input->param('bornum');
if ($member eq ''){
@@ -130,7 +128,7 @@
my $ethnicitycategoriescount=$#{$categories};
my $ethcatpopup;
if ($ethnicitycategoriescount>=0) {
- $ethcatpopup = popup_menu(-name=>'ethnicity',
+ $ethcatpopup = CGI::popup_menu(-name=>'ethnicity',
-values=>$categories,
-default=>$data->{'ethnicity'},
-labels=>$labels);
View
4 moremember.pl
@@ -46,9 +46,7 @@
my $input = new CGI;
-my $theme = $input->param('theme'); # only used if allowthemeoverride is set
-my %tmpldata = pathtotemplate ( template => 'moremember.tmpl', theme => $theme );
-my $template = HTML::Template->new(filename => $tmpldata{'path'}, die_on_bad_params => 0);
+my $template = gettemplate("members/moremember.tmpl");
my $bornum=$input->param('bornum');

0 comments on commit 6e9e3cf

Please sign in to comment.
Something went wrong with that request. Please try again.