NACH OBEN
RUB » RUB/IGM » Profil » Team
my $anzspr = $metainfo->getValues('anz_sprachen'); if ($anzspr eq '') { my @spr = $metainfo->getValues('copy'); $anzspr = scalar(@spr); } # if (($mode ne 'EDIT') && ($mode ne 'PREVIEW')) { my $ablage=""; my $sprach="de"; my $ob_de="1"; my $ob_en="1"; my $ob_es=""; my $ob_it=""; my $ob_fr=""; my $ob_pt=""; my $ob_ca=""; if (($ob_de eq '1') && ($sprach ne 'de')) { $savep = substr($ablage,0,length($ablage)-3).".de"; print ""; if ($anzspr <= 2) { print "Deutsch "; } else { print "DE "; } print "\n"; } if (($ob_en eq '1') && ($sprach ne 'en')) { $savep = substr($ablage,0,length($ablage)-3).".en"; print ""; if ($anzspr <= 2) { print "English "; } else { print "EN "; } print "\n"; } if (($ob_es eq '1') && ($sprach ne 'es')) { $savep = substr($ablage,0,length($ablage)-3).".es"; print ""; if ($anzspr <= 2) { print "Español "; } else { print "ES "; } print "\n"; } if (($ob_it eq '1') && ($sprach ne 'it')) { $savep = substr($ablage,0,length($ablage)-3).".it"; print ""; if ($anzspr <= 2) { print "Italiano "; } else { print "IT "; } print "\n"; } if (($ob_fr eq '1') && ($sprach ne 'fr')) { $savep = substr($ablage,0,length($ablage)-3).".fr"; print ""; if ($anzspr <= 2) { print "Français "; } else { print "FR "; } print "\n"; } if (($ob_pt eq '1') && ($sprach ne 'pt')) { $savep = substr($ablage,0,length($ablage)-3).".pt"; print ""; if ($anzspr <= 2) { print "Português "; } else { print "PT "; } print "\n"; } if (($ob_ca eq '1') && ($sprach ne 'ca')) { $savep = substr($ablage,0,length($ablage)-3).".ca"; print ""; if ($anzspr <= 2) { print "Catalán "; } else { print "CA "; } print "\n"; }

clearlist(); filemask('^.*\.html.de'); ireaddir('/rubigm/profil/team'); sort_by_metafield("~position","~sortkrit"); $count = 1; my $altpos = "xyz"; 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 $siteactive = $FILE_META_INFO{$file}->getValues('siteactive'); my $url = $directory.'/'.$filename; if (($siteactive ne "1") && ($filename ne "index.html.de")) { 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 $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 $position = $FILE_META_INFO{$file}->getValues('position'); 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'); $position = substr($position,3,99); if ($position ne $altpos) { if ($count > 1) { print "
\n"; } print "
$position
\n"; print "
\n"; $altpos = $position; } print "
\n"; print "
\n"; print "
\n"; print "
\n"; # print "
\n"; print " "; if ($akadtitel ne "") { print "$akadtitel "; } print "$vorname $nachname

\n"; if ($raum ne "") { print "$raum
"; } if ($durchwahl ne "") { print "Tel.: +49 234 32-$durchwahl
"; } else { if ($exttel ne "") { print "Tel.: $exttel
"; } } if ($mobil ne "") { print "Mobil: $mobil
"; } if ($zusatz ne "") { print "$zusatz
"; } if ($urlbutton ne "") { print "Lebenslauf
"; } if ($orcid ne "") { print "orcid.org/ $orcid
"; } if ($email ne "") { print "E-Mail
\n"; } print "

\n"; print "
\n"; # print "
\n"; if ($foto ne "") { print "
\n"; print "\"Foto\n"; print "
\n"; } print "
\n"; print "
\n"; print "
\n"; $count++; } # if not autoindex } # foreach print "
\n";