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>";
}
}
