<% my @felder = qw(datum);$TEMP{felder} = \@felder;"";%> %%% $VA{init_calendar} %%% <% my @t = localtime; $VA{today_epoche} = timelocal(0,0,0,$t[3],$t[4],$t[5]); $in{"feld_$PAGE{block}_von_epoche"} = $VA{today_epoche} unless $in{"feld_$PAGE{block}_von_epoche"}; $in{"feld_$PAGE{block}_bis_epoche"} = $in{"feld_$PAGE{block}_von_epoche"}; $VA{calendar_von} = &gen_widgets("calendar_html","$PAGE{block}_von","UNIXTIME","SIMPLE","datum",0,$in{"feld_$PAGE{block}_von_epoche"},"DDMMYYYY"); $VA{calendar_bis} = &gen_widgets("calendar_html","$PAGE{block}_bis","UNIXTIME","SIMPLE","datum",0,$in{"feld_$PAGE{block}_bis_epoche"},"DDMMYYYY"); qq(); ""; %>

<% my @kategorien_name = @{$VA_CONTROL{KATEGORIE_NAME}}; if (@kategorien_name) { qq(); } else { "" } %>

">Heute |  Morgen |

<% $VA{calendar_von} %>

Programm vom <% my @datum = localtime($in{"feld_$PAGE{block}_von_epoche"}); my $tag = $datum[6]; my @wochentage = ( "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag" ); $datum[4]++; $datum[5]=$datum[5]+1900; return qq($wochentage[$tag], den $datum[3].$datum[4].$datum[5]); %>

<% $VA{calendar_bis} %>

bis <% my @datum = localtime($in{"feld_$PAGE{block}_von_epoche"}); my $tag = $datum[6]; my @wochentage = ( "Sonntag", "Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag" ); $datum[4]++; $datum[5]=$datum[5]+1900; return qq($wochentage[$tag], den $datum[3].$datum[4].$datum[5]); %>

Kategorie: @kategorien_name

Uhrzeit	Veranstaltungsort	Veranstaltung	Eintritt