4 Einträge, 1 Seite |
1
2
3
4
5
6
7
8
9
10
11
12
# main_template aus DB lesen
my $statement = "SELECT template FROM template WHERE name='main_template'";
my $sth = $dbh->prepare($statement) || die $dbh->errstr;
unless( my $rv = $sth->execute ){ die "Konnte main_template nicht aus Datenbank lesen"; }
my $template = HTML::Template->new(arrayref => $sth->fetchrow_arrayref() );
$sth->finish();
# self füttern
$template->param(SELF => $cgi->url(-relative=>1) . '?sid=' . $query->{sid});
# Ausgabe
print $template->output;
1 2 3 4 5 6
my $zw_t = HTML::Template->new(arrayref => $sth->fetchrow_arrayref() ); $zw_t->param(SELF => $cgi->url(-relative=>1) . '?sid=' . $query->{sid}); $template->param( "inhalt" => $zw_t->output );
4 Einträge, 1 Seite |