Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

templating stuff : use of gettemplate method

Browse source
This commit is contained in:
tipaul 2002-10-28 18:00:57 +00:00
parent 495bf81d1c
commit 6e9e3cf3ab
5 changed files with 10 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
imemberentry.pl
View file

@ -29,9 +29,7 @@ use HTML::Template;
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 ''){

4
jmemberentry.pl
View file

@ -29,9 +29,7 @@ use HTML::Template;
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 ''){

9
member.pl
View file

@ -33,11 +33,12 @@ my $input = new CGI;
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;

6
memberentry.pl
View file

@ -33,9 +33,7 @@ use HTML::Template;
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 @@ if ($delete){
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);

4
moremember.pl
View file

@ -46,9 +46,7 @@ my $dbh = C4::Context->dbh;
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');