<include src=top>
<TABLE width=100%>

<TD align=middle>
<!-- artikel in den warenkorb? -->
<perl>
if($delw eq "all")
{
  get "KundenId==$kid sort=BestellungNr range=-1,1 Status==Unbestellt", "bestellungen";
  del "Id==$_id", "bestellungen";
}

{
  get "KundenId==$kid sort=BestellungNr range=-1,1 Status==Unbestellt", "bestellungen";

  if($_amount>0 && $Status eq "Unbestellt")
  {
    my $nArtikel=""; chop $Artikel;
    foreach $artikel (split /#/,$Artikel)
    {
      my($a,$r)=split /\:/,$artikel;
      if($r==$add) { next if $amount==0; $a=$amount; $amount=-1; }
      $nArtikel.="$a:$r#";
    }
    $nArtikel.="$amount:$add#" if $amount>0;
    if($nArtikel ne "")
    {
      mod "Id==$_id", ["Artikel", $nArtikel], "bestellungen";
    } else
    {

    }
  } else
  {
    $mArtikel="$Artikel$amount:$add#";
    get "KundenId==$kid sort=BestellungNr range=-1,1", "bestellungen"; # höchste bestellnr. holen
    put ["Artikel", $mArtikel, "KundenId", $kid, "BestellungNr", $BestellungNr+1, "Status", "Unbestellt"], "bestellungen";
  }
}
</perl>
<!-- ende artikel in den warenkorb? -->
<TABLE>

<TD width=570>$begruessung</TD></TR></TABLE>
<br>
<TABLE cellSpacing=0 cellPadding=0 width=544 border=0>

<TD bgColor=#ffffff><!-- ab hier rubriken -->
<TABLE cellSpacing=0 cellPadding=4 bgColor=#F4F6F8>

<perl>
$Rubrik||="Zimmerbrunnen";
$xxRubrik=$Rubrik;
foreach $rubrik ("Angebote", "Zimmerbrunnen", "Aussenbrunnen", "Luftbefeuchter", "Dekoartikel", "Rucksäcke", "ComputerSpiele", "Spielwaren", "Sport", "Freizeit")
{
  out ($Rubrik eq $rubrik?"<td bgcolor=#e6e6e6 width=100>&nbsp;<b>$rubrik</b>&nbsp;</td>":"<td bgcolor=#F4F6F8 width=100>&nbsp;<a href=\"$link&htx=$htx&Rubrik==$rubrik\">$rubrik</a>&nbsp;</td>");
  out "<td width=1 bgcolor=#ffffff></td>";
}
</perl></TR></TABLE></TD></TR>
<TR>

<TABLE cellSpacing=0 cellPadding=0 width="100%" bgColor=#E0E7EC border=0>

<TD vAlign=top>
<include src=warenkorb></TD>
</TR><TR>
<TD>
<TABLE cellPadding=20><!-- ab hier datenbankausgabe -->
<perl>$ic=0;</perl>
<loop Rubrik==$xxRubrik code=perl>
out "<tr valign=top align=middle>" unless $ic%5;
out '<td><a href="'.$link.'&htx=/'.$user.'/detail&Rubrik=='.convert_html($Rubrik).'&Id=='.$_id.'"><img src="'."$images/$Bild".'.gif" style="border:solid 1px #808080" width=96 height=77><br><font size=1>'.$Name.'</font><br>'.$Preis.' Euro</a></td>';
out "</tr>" unless ++$ic%5;
</loop>
<perl>out "</tr>" if $ic%5;</perl><!-- datenbankausgabe ende -->
</TABLE></TD></TR></TABLE></TD></TR></TABLE>
<CENTER></CENTER></TD>

<include src=bottom>

<br>
<perl>

if($_amount>0)
{
  out <<EOF;
<table style="border:1px solid #c0c0c0;padding:8px;"><tr><td valign=top align=center>
<b>Ihr Warenkorb</b><br><br>
EOF

  out "<table width=100%>";
  &berech(2);
  $ges=sprintf("%.2f",$ges);
  $ges=~ s/\./,/;
  out "<tr><td colspan=3><hr size=1></td></tr>";
  out "<tr><td colspan=2>Gesamt:</td><td align=right><b>$ges&nbsp;Euro</b></td></tr></table>";
  out "<br><a href=\"$link&htx=/$user/best\"><b>Bestellen</b></a>" unless $nobest;
  out "</td></tr></table>";

  out "<br><font size=1><a href=\"$link&htx=/$user/artikel&Rubrik=".convert_html($Rubrik)."&delw=all\" onclick=\"return confirm('Wollen Sie wirklich alle Artikel aus dem Warenkorb entfernen?')\">&nbsp;&nbsp;&nbsp;Warenkorb leeren</a></font><hr size=1 color=#d5d5d5>";

get "KundenId==$kid sort=BestellungNr range=-1,1 Status<>Unbestellt", "bestellungen";
if($_amount_query>0)
{
  out "<br><center><hr size=1 color=#c0c0c0><font size=1>Bestellungen&nbsp;bisher:<br><font color=#FF8000>$_amount_query</font><br>";
  out "Letzte Bestellung:<br><font color=#FF8000>".datum($Datum)."</font><br>";
  out "Status:<br><font color=#FF8000>$Status</font></font></center><br>";
}