© RUB, Fotos Stefan Speck
clearlist();
filemask('.*\.html.de');
ireaddir('//team');
sort_by_multifield("~position","nurehemalig","~sortkrit");
$count = 1;
$ehem = 0;
my $altpos = "xyz";
my $dieliste="";
if ($dieliste ne "") {
print "$dieliste
\n";
}
foreach my $file (@FILELIST) {
my $directory = $FILE_META_INFO{$file}->getValues('directory');
my $filename = $FILE_META_INFO{$file}->getValues('filename');
my $filevorname = $FILE_META_INFO{$file}->getValues('filevorname');
my $node = $FILE_META_INFO{$file}->getValues('__imperia_node_id');
my $siteactive = $FILE_META_INFO{$file}->getValues('siteactive');
my $position = $FILE_META_INFO{$file}->getValues('position');
$position = substr($position,3,99);
my $nurehemalig = $FILE_META_INFO{$file}->getValues('nurehemalig');
my $sortkrit = $FILE_META_INFO{$file}->getValues('sortkrit');
my $url = $directory.'/'.$filename;
print "\n";
if ((($dieliste eq "") && ($nurehemalig eq "")) || ($dieliste eq $position)) {
if (($siteactive ne "1") && ($node ne "") && ($nurehemalig eq "")) {
my $nachname = $FILE_META_INFO{$file}->getValues('nachname');
my $vorname = $FILE_META_INFO{$file}->getValues('vorname');
my $akadtitel = $FILE_META_INFO{$file}->getValues('akadtitel');
my $gebaeude = $FILE_META_INFO{$file}->getValues('gebaeude');
my $raum = $FILE_META_INFO{$file}->getValues('raum');
my $durchwahl = $FILE_META_INFO{$file}->getValues('durchwahl');
my $exttel = $FILE_META_INFO{$file}->getValues('exttel');
my $mobil = $FILE_META_INFO{$file}->getValues('mobil');
my $sortkrit = uc($FILE_META_INFO{$file}->getValues('sortkrit'));
my $email = $FILE_META_INFO{$file}->getValues('email');
my $fach = $FILE_META_INFO{$file}->getValues('fach');
my $abteilung = $FILE_META_INFO{$file}->getValues('abteilung_de');
my $sprechstunde = $FILE_META_INFO{$file}->getValues('sprechstunde_de');
my $orcid = $FILE_META_INFO{$file}->getValues('orcid');
my $urlbutton = $FILE_META_INFO{$file}->getValues('urlbutton');
my $zusatz = $FILE_META_INFO{$file}->getValues('zusatz_de');
my $foto = $FILE_META_INFO{$file}->getValues('foto');
if ($position ne $altpos) {
if ($count > 1) {
print " \n";
$altpos = $position;
}
print "
\n";
print "
\n";
print "
\n";
print "
\n";
if ($foto ne "") {
print "
\n";
print "
![\"Foto](\"$foto\")
\n";
print "
\n";
}
print "
\n";
print "
\n";
print "
\n";
$count++;
} # if not autoindex
} # if liste leer oder position
# else {
# if ($ehem == 0) {
# print "
\n";
# print "
\n";
# print " \n";
# print "
\n";
# print "
\n";
# print "
\n";
# }
# if ($akadtitel ne "") {
# print "$akadtitel ";
# }
# print "$vorname $nachname
\n";
# $ehem++;
# }
# if ($ehem > 0) {
# print "
\n";
# print "
\n";
# print "
\n";
# }
} # foreach
print "
