\n";
if ($jahr eq "") {
print "
Die neuesten $anz News
\n";
} else {
print "
Newsarchiv $jahr
\n";
}
print "
\n";
foreach my $file (@FILELIST) {
my $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename');
my $template = $FILE_META_INFO{$file}->getValues('template');
my $ueberschrift = $FILE_META_INFO{$file}->getValues('newsueberschrift_de');
my $sortdatum = $FILE_META_INFO{$file}->getValues('sortdatum');
my $dasdatum = $FILE_META_INFO{$file}->getValues('kurzdatum_de');
my $wichtigkeit = $FILE_META_INFO{$file}->getValues('wichtigkeit');
my $direktlink = $FILE_META_INFO{$file}->getValues('direktlink');
my $dasjahr = substr($FILE_META_INFO{$file}->getValues('sortdatum'),0,4);
my $dermonat = substr($FILE_META_INFO{$file}->getValues('sortdatum'),4,2);
my $title = $FILE_META_INFO{$file}->getValues('title_de');
my $teaserbild = $FILE_META_INFO{$file}->getValues('teaser_450');
my $teaser = $FILE_META_INFO{$file}->getValues('teaser_de');
if ((($jahr eq "") && ($count <= $anz) && ($wichtigkeit ne "archiv")) || ($jahr eq $dasjahr)) {
# if ($dermonat ne $altmonat) {
# print "
$monate[$dermonat-1] $dasjahr
\n";
# $altmonat = $dermonat;
# }
print " - ";
if ($direktlink eq '') {
print "";
} else {
print "";
}
print "$dasdatum: $ueberschrift
\n";
if ($teaser ne "") {
print " - ";
if ($teaserbild ne '') {
print "
";
}
print "$teaser \n";
}
print "
\n";
$count++;
}
}
print "
\n";
print "
\n";
if ($jahr ne "") {
}
print "
Jahresübersichten
\n";
for ($i=$aktjahr;$i>=2023;$i--) {
print " Jahr $i
\n";
}
print "
\n";
print "