if (($mode ne 'EDIT') && ($mode ne 'PREVIEW')) {
my $ablage="";
print "\n";
my $sprach="de";
my $ob_de="1";
my $ob_en="";
my $ob_fr="";
if (($ob_de eq '1') && ($sprach ne 'de')) {
$savep = substr($ablage,0,length($ablage)-3).".de";
print "Deutsch\n";
}
if (($ob_en eq '1') && ($sprach ne 'en')) {
$savep = substr($ablage,0,length($ablage)-3).".en";
print "English\n";
}
if (($ob_fr eq '1') && ($sprach ne 'fr')) {
$savep = substr($ablage,0,length($ablage)-3).".fr";
print "Français\n";
}
print "\n";
}
Herzlich Willkommen...
auf den Seiten der Juniorprofessur für Bürgerliches Recht und Wirtschaftsrecht!
clearlist();
filemask('news.*\.html.de');
ireaddir('//news');
sort_by_metafield("-sortdatum");
my $anzahl = 0;
foreach my $ffff (@FILELIST) {
my $wichtigkeit = $FILE_META_INFO{$ffff}->getValues('wichtigkeit');
if ($wichtigkeit eq 'topnews') {
$anzahl++;
}
}
print "\n";
$count = 1;
$sekunden = "";
if ($sekunden == "") {
$sekunden = 7.5;
}
$millisekunden = 1000 * $sekunden;
print "
\n";
print "
\n";
print "
\n";
if ($anzahl > 1) {
print " \n";
for (my $i = 0;$i < $anzahl;$i++) {
print "
\n";
print "
\n";
}
print " \n";
}
print "
\n";
foreach my $file (@FILELIST) {
my $url = $FILE_META_INFO{$file}->getValues('directory').'/'.$FILE_META_INFO{$file}->getValues('filename');
my $sortdatum = $FILE_META_INFO{$file}->getValues('sortdatum');
my $sortlesedatum = $FILE_META_INFO{$file}->getValues('sortlesedatum');
my $wichtigkeit = $FILE_META_INFO{$file}->getValues('wichtigkeit');
# print "\n";
my $ueberschrift = $FILE_META_INFO{$file}->getValues('newsueberschrift_de');
my $bild = $FILE_META_INFO{$file}->getValues('newsbild');
my $imgtitle = $FILE_META_INFO{$file}->getValues('imgtitle');
my $imgcopyright = $FILE_META_INFO{$file}->getValues('copyright');
my $dasdatum = $FILE_META_INFO{$file}->getValues('sortlesedatum');
my $weiterlesen = $FILE_META_INFO{$file}->getValues('weiterlesen');
my $linkurl = $FILE_META_INFO{$file}->getValues('linkurl_de');
my $linktext = $FILE_META_INFO{$file}->getValues('linktext_de');
my $direktlink = $FILE_META_INFO{$file}->getValues('direktlink_de');
my $title = $FILE_META_INFO{$file}->getValues('title_de');
my $teaser = $FILE_META_INFO{$file}->getValues('teaser_de');
if ($teaser eq "") {
$teaser = $FILE_META_INFO{$file}->getValues('teaser');
}
my $origbild = $FILE_META_INFO{$file}->getValues('teaser_663');
my $grossbild = $FILE_META_INFO{$file}->getValues('teaser_600');
my $mittelbild = $FILE_META_INFO{$file}->getValues('teaser_450');
if ($wichtigkeit eq 'topnews') {
print "
