Kann man HTML Template so anwenden oder nicht? Konkret geht es mir um die Zuweisung des Wertes in der Sub Routine. Mein aktueller Stand nach zig Versuchen mit my und our ist nein, aber wie geht es dann?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
#!/usr/bin/perl
use utf8;
use strict;
use DBI;
use CGI;
use Encode;
use HTML::Template;
#Templates einbinden
my $template = HTML::Template->new(filename => 'spielplan.tmpl', encoding => ':encoding(UTF-8)');
#Werte einlesen
my $daten = CGI::new();
my $view = $daten->param("view");
my $menue = $daten->param("menue");
my $submit = $daten->param("submit");
if ( $view eq "darsteller") {
if ($menue eq "" and $submit eq "") {
$template->param(DARSTELLER_MENUE => "1");
}
}
if ( $view eq "termin") {
&termin;
}
print "Content-Type: text/html \n\n", $template->output;
exit;
sub termin {
$template->param(DARSTELLER_TERMIN => "1");
}