CMS Imperia-Flexmodul: Perlmodul eines Topic-Kastens

Beispiel der fertigen Ansicht

Topic 1

Beispieltext mit Bild der Oper in Sydney, Australien.
Dieses Bild gehört zu den Beispieldaten der Mediendatenbank von Imperia.

Topic 2

Auch ein Foto aus der Mediendatenbank: die große Brücke im Hafen von Sydney.

Wird der Text länger, als Platz neben dem Bild vorhanden ist, wird automatisch unterhalb des Bildes weitergeschrieben.
Der Text umschließt das Bild regelrecht. Dabei werden alle nebeneinander liegenden Topic-Kästen auf die gleiche Länge gedehnt.

Screenshot im Edit-Modus

Screenshot

Beschreibung

Ein Topic-Kasten ist ein in der hellen Farbe der Institution hinterlegter Textblock mit einer Überschrift und einem Fließtext, der in der linken oberern Ecke ein Bild haben kann.
Da es sich um ein Perl-Modul handelt, können mit den Parametern im Modulwahl-Fenster variable Topic-Kästen erzeugt werden. Über den Parameter 1 kann die Anzahl der nebeneinander gewünschten Topic-Kästen bestimmt werden. Voreingestellt ist die Anzahl 1. Als maximale Anzahl wurde 3 festgelegt. Der zweite Parameter hat in diesem Flexmodul keinerlei Wirkung.
Ein Topic-Kasten besteht aus einer Überschrift, einem in der Größe festgelegten Bild und einem Fließtext. Sowohl Überschrift als auch Fließtext können mit HTML-Befehlen verziert werden. Das Bild kann aus der Mediendatenbank oder über den Graphiker vom lokalen Rechner eingespeist werden.

Quelltext

# DESCRIPTION: Topic-Kasten
# AUTHOR: Volkmar
VALIDCODE:2
INVALIDCODE:1

if ($param1 ge 3) {
  $spalten = 3;
  }
else
  {
  $spalten = $param1;
  }

if ($param1 lt 1) {
  $spalten = 1;
  }
else
  {
  $spalten = $param1;
  }


 $breite = 95 / $spalten;
 $new .= "<table width=\"100%\" cellpadding=2 cellspacing=10 border=0>";
 $new .= "<tr>";
 for ($i = 0; $i < $spalten; $i++) {
   $new .= "<td width=$breite% valign=top bgcolor=<!--XX-hell-->> ";
   $new .= "  <p><b><INPUT NAME=\"IMPERIA:HTML:ueb$i\" SIZE=20></b></p>";
   $new .= "  <img src=\"IMPERIA:topicbild$i\" width=150 align=\"left\" ";
   $new .= "       alt=\"Topicbild\" border=\"0\" vspace=\"2\" hspace=\"2\">";
   $new .= "  <TEXTAREA NAME=\"IMPERIA:HTML:txt$i\" ROWS=5 COLS=30></TEXTAREA>";
   $new .= "</td>";
 }
 $new .= "</tr>";
 $new .= "</table>";

Rechenzentrum