use strict;
# Übersetzungsdatei einlesen
my %dynamic;
readDynamicFile();
clearlist();
filemask("index.shtml.de");
ireaddir("/dh/administration/ansprechpartner");
reject("/dh/administration/ansprechpartner/index.shtml.de");
sort_by_multifield("+directory","+ordnung_main");
my $abteilungen = ();
print "
Ansprechpartner:
Reihenfolge
";
my $counter = 1;
my $old_counter = 0;
my $old_abteilung = "";
foreach my $file (@FILELIST){
my $directory = $FILE_META_INFO{$file}->getValues('directory');
my $filename = $FILE_META_INFO{$file}->getValues('filename');
my $name = $FILE_META_INFO{$file}->getValues('name');
my $vorname = $FILE_META_INFO{$file}->getValues('vorname');
my @split = split("/", $directory);
my $new_abteilung = $split[4];
my $docId = "";
my $docId = $split[5];
my $doc = "";
if ($old_abteilung ne $new_abteilung) {
$doc .= "
";
sub readDynamicFile
{
my $dynamicfile = $SYSTEM_CONF{'SITE-DIR'} ."/dynamic/allgemein.conf";
my $dynamic;
open (TRANS, "< $dynamicfile") or die "Konnte die Dynamic Datei nicht oeffnen\n";
my $i = 0;
while () {
#study;
chomp;
$_ = m|\s*REPLACE\s*\[(.*)\]\s*BY\s*\[(.*)\]|;
$dynamic{$1} = $2;
}
close TRANS;
}
