Frage: Ich möchte in zu Variantenartikeln einen "ab Preis" darstellen, wie komme ich an den günstigsten Preis in dem Variantenartikel ?

Lösung:


<!--spmacro:module(preis)
sub ab {
   my $index = $_[0];
   my $anzahl = $_[1];
   my $vindex = $_[2];
   my $vanzahl = $_[3];
   if ($vanzahl > 0) { # Sind überhaupt Varianten da ?
      my $minpreis = 9999999999; # sehr hoher Preis
      for( my $i = 0; $i <= $vanzahl; ++$i) { # alle Varianten durchlaufen
         my $vp = ssp::get_var_varticle('preis',$i);
         if ($vp < $minpreis) {  # ist der Preis niiedriger ?
            $minpreis = $vp;
         }
      }
      main::mprint("ab " . main::fp($minpreis));
   }

}
-->


Mit __preis::ab__ kann man dann den niedrigsten Preis einer Variante des Artikels ausgeben.
Das Script ist für Artikelseiten gedacht funktioniert aber auch auf er Detailseite.


Linkback: https://www.shoppilot.net/pf/index.php?topic=1669.0

Aufgabe:
das "ab" soll nur ausgegeben werden, wenn es unterschiedliche Variantenpreise gibt

Lösung:
<!--spmacro:module(preis)
sub ab {
   my $index = $_[0];
   my $anzahl = $_[1];
   my $vindex = $_[2];
   my $vanzahl = $_[3];
   my $vp;
   my $ab;
   if ($vanzahl > 0) { # Sind überhaupt Varianten da ?
      my $minpreis = 9999999999; # sehr hoher Preis
 my $maxpreis = 0;
      for( my $i = 0; $i <= $vanzahl; ++$i) { # alle Varianten durchlaufen
         $vp = ssp::get_var_varticle('preis',$i);
         if ($vp < $minpreis) {  # ist der Preis niedriger ?
            $minpreis = $vp;
         }
         if ($vp > $maxpreis) {
            $maxpreis = $vp;
         }
      }
        if ($minpreis != $maxpreis) {$ab = "ab ";}
      main::mprint($ab . main::fp($minpreis));
   }
}
-->
mit __preis::ab__  wird jetzt nur dann ein "ab <Preis>" ausgegeben, wenn es mehr als einen Preis bei den Varianten gibt.

Will man z.B.  Preis von - bis ausgeben, kann man das so machen
 main::mprint( main::fp($minpreis) . " - " . main::fp($maxpreis));