<!-- ab hier datenbankausgabe -->
<loop db=artikel code=perl>
foreach $artikel (split /#/,$mArtikel)
{
  ($anzahl,$r)=split /\:/,$artikel;
  last if $r==$_id;
  $anzahl=0;
}

out <<EOF;
<tr valign=top>
<td>
<img src="$images/${Bild}_gross.jpg" style="border:solid 1px #c0c0c0" width=400 height=300></td><td>
<b>$Name</b><br><br>
$Beschreibung
<br><br>

<br><br>
Link: <br><b>$Link</b>
<br><br><b>verfügbare Geschenkeinheiten: $Lagerbestand<b>
<form action="$link&htx=/$user/artikel" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/$user/artikel">
<input type=hidden name="kid=" value="$kid">
<input type=hidden name="add=" value="$_id">
EOF
out $anzahl?"Im Geschenkkorb":"Anzahl";
out ': <select name="amount=">';
for my $i (1 .. $Lagerbestand)
{ out '<option value="'.$i.'"'.(($anzahl||1)==$i?" selected":"").'>'.$i; }
out '</select><br><br><input type=submit value="';
out $anzahl?"Anzahl &auml;ndern":"In den Geschenkkorb";
out '">';
out "<br><br><font size=1><a href=\"$link&htx=/$user/artikel&add=$_id&amount=0\">Aus Geschenkkorb entfernen</a></font>" if $anzahl;

</form>
</td>
</tr>
EOF

<!-- datenbankausgabe ende -->