##########################################################
# Generierung der Infoboxen für Referenzen
# Erzeugt die SSIs der rechten Seite fuer Referenzen, etc.
# Holger Maier
# Datum: 2010-11-25
###########################################################
use strict;
use utf8;
my %weiter = ( de => "Weiter", fr => "Continuez", en => "More" );
my $title_lang = "title_de";
my $teaser_lang = "teaser_de";
clearlist();
my $fileMask = "shtml\.de";
filemask($fileMask);
ireaddir("/dh/referenzen/weitere_referenzen");
reject("/dh/referenzen/weitere_referenzen/index.shtml.de");
sort_by_metafield('sortier_datum');
reverse_list();
foreach my $file (@FILELIST)
{
my $title = $FILE_META_INFO{$file}->getValues($title_lang);
my $teaser = $FILE_META_INFO{$file}->getValues($teaser_lang);
my $hrefFile = $FILE_META_INFO{$file}->getValues('directory') .'/'. $FILE_META_INFO{$file}->getValues('filename');
next if ($hrefFile eq "/dh/referenzen/weitere_referenzen/index.shtml.de");
my $uebersichtBild = $FILE_META_INFO{$file}->getValues('uebersicht_bild_name');
my $vorschauBild = $FILE_META_INFO{$file}->getValues('vorschau_bild_name');
my $bild = $vorschauBild;
if (length($uebersichtBild) > 5)
{
$bild = $uebersichtBild;
} else {
$bild = $vorschauBild;
}
print <
$title
$teaser
[$weiter{"de"}]
