Referenzen

Referenzen Linepipe

Ansprechpartner:

Roland Hahn Roland Hahn
AG der Dillinger HüttenwerkeVerkauf

Tel.: Work +49 6831 47 2681
 Fax: fax +49 6831 47 3689

Ansprechpartner:

Andreas Thieme Andreas Thieme
AG der Dillinger HüttenwerkeMarketing & techn. Kundenbetreuung

Tel.: Work +49 6831 47 2146
Fax: fax +49 6831 47 992146

########################################################## # 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/linepipe"); reject("/dh/referenzen/linepipe/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/linepipe/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 }