aktuelle Sprache: $lingua
"; my $mask = "index\.shtml\.". $lingua. "\$"; filemask($mask); ireaddir('/dh/administration/ansprechpartner'); sort_by_meta("ordnung_main"); foreach $file (@FILELIST) { # Deklaration aller notwendigen Variablen $directory = $FILE_META_INFO{$file}->getValues('directory'); $filename = $FILE_META_INFO{$file}->getValues('filename'); # Allgemein Informationen $vorschau_bild_name = $FILE_META_INFO{$file}->getValues('vorschau_bild_name'); $bild_kontaktseite = $FILE_META_INFO{$file}->getValues('bild_kontaktseite'); $titel = $FILE_META_INFO{$file}->getValues('titel'); $name = $FILE_META_INFO{$file}->getValues('name'); $vorname = $FILE_META_INFO{$file}->getValues('vorname'); $zus_bezeichnung = $FILE_META_INFO{$file}->getValues('zus_bezeichnung_'.$lingua); $zus_bezeichnung_col2 = $FILE_META_INFO{$file}->getValues('zus_bezeichnung_col2_'.$lingua); $tel = $FILE_META_INFO{$file}->getValues('tel'); $fax = $FILE_META_INFO{$file}->getValues('fax'); $pcfax = $FILE_META_INFO{$file}->getValues('pcfax'); $email = $FILE_META_INFO{$file}->getValues('email'); # Umbrüche einbauen $zus_bezeichnung =~ s|\n||; $zus_bezeichnung_col2 =~ s|\n|
|; # potenzieller Tab --> Bei Abteilung = Weitere_Ansprechpartner $weitere = $FILE_META_INFO{$file}->getValues('weitere'); @chem_labor = $FILE_META_INFO{$file}->getValues('chem_labor'); # Sparten, Zuständigkeiten, Zugehörigkeiten @rubrikenzuordnung = $FILE_META_INFO{$file}->getValues('rubrikenzuordnung_de'); @serviceteams = $FILE_META_INFO{$file}->getValues('serviceteamzuordnung_de'); # Anzeigeeinstellungen $anz_kontaktseite = $FILE_META_INFO{$file}->getValues('anz_kontaktseite'); $anz_col2 = $FILE_META_INFO{$file}->getValues('anz_col2'); $anz_serviceteam = $FILE_META_INFO{$file}->getValues('anz_serviceteam'); # Ordnung $ordnung_main = $FILE_META_INFO{$file}->getValues('ordnung_main'); # $ordnung_col2 = $FILE_META_INFO{$file}->getValues('ordnung_col2'); $ordnung_service = $FILE_META_INFO{$file}->getValues('ordnung_service'); # Extrahierung der Abteilung aus Pfad my @split = split('/',$directory); $abteilung = @split[4]; next if ($abteilung eq "dh_allgemein"); if ($anz_kontaktseite eq "ja") { addKontakt_Kontaktseite($lingua); } if ($anz_col2 eq "ja") { createHashkey_col2($lingua); } if ($anz_serviceteam eq "ja") { addKontakt_Serviceteam($lingua); } zusammenfassung("kontakt"); } # END foreach my $file (@FILELIST) # Testausgabe eines APs #print "
$serviceteam
"; open (SACTIVE, ">> $savefile") or die "Konnte die Datei $savefile nicht oeffnen\n "; foreach my $ordnung_service (sort { $a <=> $b } keys %{$serviceteam_hash{$serviceteam}}) { print $ordnung_service.", "; #print $serviceteam_hash{$serviceteam}{$ap}; #print "$role=$HoH{$family}{$role} "; print SACTIVE $serviceteam_hash{$serviceteam}{$ordnung_service}; } close SACTIVE or die "Konnte Datei $file nicht schliessen\n"; } } sub generateAP { my $anzeige = shift; my $sprache = shift; my $first = shift; my $kontakt = ""; my $abteilung_ausgabe = ""; my $komma = ""; # Erstellung des Kontakts if ($anzeige eq "main" || $anzeige eq "serviceteam") { $kontakt .= "";
if ($bild_kontaktseite) {
$kontakt .= "
";
}
}
elsif ($anzeige eq "col2") {
$uebersetzung = $dynamic{"text.ansprechpartner_$sprache"};
$kontakt .= "
";
if ($vorschau_bild_name) {
$kontakt .= "
";
}
}
#Ausgabe Name des AP
$kontakt .= "
$titel
$vorname
$name
";
# Unterscheidung welcher Ausgabetext notwendig ist...
if ($anzeige eq "main") {
if ($zus_bezeichnung) {
$abteilung_ausgabe = $zus_bezeichnung;
}
# ... in Abhänigkeit der Abteilung
if (($directory =~ "(verkauf|marketing)") && ($abteilung ne "verkauf_np")) {
# wurden Rubriken angegeben?
if (@rubrikenzuordnung) {
# Hinzufügen des Kommas
$abteilung_ausgabe .= ", " if ($zus_bezeichnung);
# Ausgabe aller Rubriken inkl. "," zwischen den Rubriken
foreach $rubrik (@rubrikenzuordnung) {
# Keine Ausgabe der Rubrik, wenn diese zu Referenzen, Stählen oder Nebenprodukte gehört
if (not $rubrik =~ "^stahl_" || $rubrik =~ "^referenzen_") {
if (not $komma) {
$abteilung_ausgabe .= $dynamic{"text.rubrik.".$rubrik."_".$sprache};
$komma = "true";
}
else {
$abteilung_ausgabe .= ', '.$dynamic{"text.rubrik.".$rubrik."_".$sprache};
}
}
}
}
}
}
elsif ($anzeige eq "col2" || $anzeige eq "serviceteam") {
if ($zus_bezeichnung_col2) {
$abteilung_ausgabe .= $zus_bezeichnung_col2;
}
elsif ($abteilung =~ "(verkauf|marketing)") {
$abteilung_ausgabe .= $dynamic{"text.".$abteilung."_".$sprache};
}
elsif ($zus_bezeichnung) {
$abteilung_ausgabe .= $zus_bezeichnung;
}
else {
$abteilung_ausgabe .= $dynamic{"text.kontakt.titel.".$abteilung."_".$sprache};
}
}
# Diverse öffentliche Unternehmensangaben
$kontakt .= "
AG der Dillinger Hüttenwerke";
if ($abteilung_ausgabe ne "") {
$kontakt .= "$abteilung_ausgabe";
}
$kontakt .= "
";
# $kontakt .= "
#
# Work
# Werkstrasse 1
# 66763
# Dillingen/Saar
#
# http://www.dillinger.de
# 49.3559826.73262
# ";
#Abstand nach Name und Abteilung (wenn abt != "")
$kontakt .= "
";
if ($tel) {
$uebersetzung = $dynamic{"text.telefon_$sprache"};
$kontakt .= "
$uebersetzung
Work
$tel
";
}
if ($fax) {
$uebersetzung = $dynamic{"text.fax_$sprache"};
$kontakt .= "
$uebersetzung
fax
$fax
";
}
if ($pcfax) {
$uebersetzung = $dynamic{"text.pcfax_$sprache"};
$kontakt .= "
$uebersetzung
fax2
$pcfax
";
}
if ($email) {
$uebersetzung = "";
if ($anzeige eq "main" || $anzeige eq "serviceteam" ) {
$uebersetzung = $dynamic{"text.email_$sprache"};
}
$kontakt .= "
$uebersetzung $email";
}
$kontakt .= "
- $dynamic{"text.kontakt.titel.verkauf_".$sprache}
- $dynamic{"text.kontakt.titel.verkauf_np_".$sprache}
- $dynamic{"text.kontakt.titel.weiterverarbeitung_".$sprache}
- $dynamic{"text.kontakt.titel.marketing_".$sprache}
- $dynamic{"text.kontakt.titel.einkauf_".$sprache}
- $dynamic{"text.kontakt.titel.verkehrswesen_".$sprache}
- $dynamic{"text.kontakt.titel.rohstoffeinkauf_".$sprache}
- $dynamic{"text.kontakt.titel.presse_".$sprache}
- $dynamic{"text.kontakt.titel.werksbesichtigung_".$sprache}
- $dynamic{"text.kontakt.titel.werkszeitschrift_".$sprache}
EOT close SACTIVE or die "Konnte Datei $file nicht schliessen\n "; } sub zusammenfassung { my $var = shift; if ($var eq "start") { print "
| Name | Zus. Bezeichnung | Zus. Bezeichnung Col2 | Rubriken | auf Kontaktseite? | auf rechter Seite? | in Serviceteam? | Pfad |
|---|