sub berech
{
 chop $Artikel; $ges=0;
 foreach $artikel (split /#/,$Artikel)
 {
  my($a,$r)=split /\:/,$artikel;
  get "Id==$r", "artikel";

  $xp=$Preis; $xp=~ s/,/./; $ep=sprintf($a*$xp); $ep=~ s/\./,/;
  $ges+=$a*$xp;
  $verbr=$Menge-$a;
  if($_[0]==1)
  {
      $output.="$a x $Name (je $Preis) gesamt $ep \n<br>";
  } elsif($_[0])
  {
   out "<tr></td><td>$a</td><td align=left nowrap><a href=\"$link&htx=/$user/detail&Rubrik=".convert_html($Rubrik)."&Id==$r\">$Name</a></td><td align=left nowrap>$Preis </td><td align=right nowrap> *$verfuegbar* </td><td align=right nowrap>($ep) </td></tr>";
  } else
  {
      out "<tr></td><td>$a</td><td align=left nowrap>$Name</td><td align=center nowrap>$Preis </td><td align=right nowrap>($verfuegbar) </td><td align=right nowrap>($ep) </td></tr>";
  }
 }

</perl>