Aufgabe:
auf einer Katalogseite sollen mehrere Artikel mit Varianten ausgegeben werden

Lösung:
<!--spmacro:module(vari)
use strict;
my $anz =  $_[1]; # Anzahl  Hauptartikel

sub ausgeben {
my $anzahl = $_[3];
my $ausgabe = qq| # hier die Produktbeschreibung
<table>|;

for (my $i=0;$i<=$anzahl;$i++){
my $id = ssp::get_var_varticle('itemid', $i);
my $image = ssp::get_var_varticle('VARIBILD', $i);
my $text = ssp::get_var_varticle('idescription', $i);
my $showimage = qq{ <img style="height: 30px;" src="../$image" alt="$text">};
my $preis = ssp::get_var_varticle('preis', $i);
$preis = main::fp($preis);
my $input= qq|<input name="a__$id" value=0>|;
$ausgabe .= qq|
<tr>
<td>$showimage</td>
<td>$text</td>
<td>$preis</td>
<td>$input</td>
</tr>
|;
}
$ausgabe .= qq|</table>|;
   main::mprint $ausgabe;
}

sub ausgeben2 {
if ($anz <=1) {return;}
main::mprint qq|__vari::ausgeben__ |;
}
sub ausgeben3 {
if ($anz <=2) {return;}
main::mprint qq|__vari::ausgeben__ |;
}
sub ausgeben4 {
if ($anz <=3) {return;}
main::mprint qq|__vari::ausgeben__ |;
}
sub ausgeben5 {
if ($anz <=4) {return;}
main::mprint qq|__vari::ausgeben__ |;
}
sub ausgeben6 {
if ($anz <=5) {return;}
main::mprint qq|__vari::ausgeben__ |;
}
-->

mit
__vari::ausgeben__
__vari::ausgeben2__
__vari::ausgeben3__
__vari::ausgeben4__
__vari::ausgeben5__

werden dann die Artikel mit Varianten angezeigt und zwar immer nur so viele, wie es auch Artikel auf der Seite gibt
(im Beispiel bis zu 5 Artikel, kann aber beliebig erweitert werden)
Die Ausgabe der Varianten kann natürlich angepasst werden !

ohne das  if ($anz <=2/3/4/5) {return;}  wüden bei weniger als 5 Artikeln dann die Varianten des 1./2./3. Artikels nochmals ausgegeben werden