<loop db=angebote code=perl>
# ............................................................ #
# erst mal die Abfrage auf die Parameter, die in den Links ans
# Template übergeben wurden (die Links rufen das Template selbt
# wieder auf)
if ( $bildnr = 1 || $zeigbild eq "") { # wenn Parameter gleich 1 oder nicht vorh (ist bei Erstaufruf der Fall)
$zeigbild = $_raw{Produktbild1};
} elsif ( $bildnr = 2 ) { # wenn Parameter gleich 2
$zeigbild = $_raw{Produktbild2};
} elsif ( $bildnr = 3 ) { # wenn Parameter gleich 3
$zeigbild = $_raw{Produktbil3};
} elsif ( $bildnr = 4) { # wenn Parameter gleich 4
$zeigbild = $_raw{Produktbild4};
} # E if/elsif Parameter $bildnr
# jetzt die Ausgabe, die Links werden nur ausgegeben, wenn auch wirklich in dem
# zugehörigen Feld etwas steht (damit sie nicht ins Leere laufen)
# der Link für das Bild Nr. 1 wird nur angezeigt, wenn nicht schon das Bild Nr.1
# angezeigt ist (also ausgewählt oder beim Erstaufruf kein Link auf dieses Bild)
out<<EOF;
$produktname
$preis / $menge
<br>
<img src="http://www.huf-shop.de/files/$zeigbild"><br>
EOF
# jetzt die Links bedingt ausgenben, nur wenn auch wirklich im Datensatz ein
# Bildwert unter vorhanden ist, beim Bild 1 Link nur, wenn es in DB sit und Parameter bildnr größer 1
out "<a href='$_link&bildnr=2'>Produktbild1</a><br>" if ($Produktbild1 ne "" && $bildnr > 1);
out "<a href='$_link&bildnr=2'>Produktbild2</a><br>" if $Produktbild2 ne "";
out "<a href='$_link&bildnr=3'>Produktbild2</a><br>" if $Produktbild3 ne "";
out "<a href='$_link&bildnr=4'>Produktbild2</a><br>" if $Produktbild4 ne "";
# das wars!
</loop>