Referenzen

Referenzen Maschinenbau

Ansprechpartner:

Martin Klein Martin Klein
AG der Dillinger HüttenwerkeVerkauf

Tel.: Work +49 6831 47 2418
 Fax: fax +49 6831 47 3350

Ansprechpartner:

Dr. Wolfram Hölbling Dr. Wolfram Hölbling
AG der Dillinger HüttenwerkeMarketing & techn. Kundenbetreuung

Tel.: Work +49 6831 47 4708
 Fax: fax +49 6831 47 3089

Markenstähle
########################################################## # Generierung der Infoboxen für Referenzen # Erzeugt die SSIs der rechten Seite fuer Referenzen, etc. # Holger Maier # Datum: 2010-11-25 ########################################################### use strict; use utf8; my %weiter = ( de => "Weiter", fr => "Continuez", en => "More" ); my $title_lang = "title_de"; my $teaser_lang = "teaser_de"; clearlist(); my $fileMask = "shtml\.de"; filemask($fileMask); ireaddir("/dh/referenzen/maschinenbau"); reject("/dh/referenzen/maschinenbau/index.shtml.de"); sort_by_metafield('sortier_datum'); reverse_list(); foreach my $file (@FILELIST) { my $title = $FILE_META_INFO{$file}->getValues($title_lang); my $teaser = $FILE_META_INFO{$file}->getValues($teaser_lang); my $hrefFile = $FILE_META_INFO{$file}->getValues('directory') .'/'. $FILE_META_INFO{$file}->getValues('filename'); next if ($hrefFile eq "/dh/referenzen/maschinenbau/index.shtml.de"); my $uebersichtBild = $FILE_META_INFO{$file}->getValues('uebersicht_bild_name'); my $vorschauBild = $FILE_META_INFO{$file}->getValues('vorschau_bild_name'); my $bild = $vorschauBild; if (length($uebersichtBild) > 5) { $bild = $uebersichtBild; } else { $bild = $vorschauBild; } print < $title

$title
$teaser

[$weiter{"de"}]

ENDOFTEXT }