<html>
<head>
<title>Grobmotorik_Laden</title>
<include src=css>
</head>
<body bgcolor="#FFFFFF">
<form action="bbeta.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="$htx">
Freie Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>
<perl>
###############################suche#########################
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
get "Id==*","kategorie","kats";
$printpreis=$einzelpreis;
$printpreis = &PreismitKomma($printpreis);
sub PreismitKomma
{
$prnpreis=sprintf('%.2f',$_[0]);
$prnpreis =~ s/\./,/;
return ($prnpreis);
}
out <<EOF;
<form action="$link&show=basket" method="post"
enctype="multipart/form-data">
<input type=hidden name="session=">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="show=" value="basket">
<input type=hidden name="sku=" value="$sku">
<input type=hidden name="aktion=" value="a">
<table width=600 border=0 cellpadding=1 cellspacing=0 bgcolor="#CCCCCC">
<tr><td width=200><span style="font-weight:bold">Artikel-Nr.: $sku</span></td>
<td width=400 align=left><span style="font-weight:bold"><h2>$bezeichnung</h2></span>, Kategorie: <span
style="font-weight:bold">$kategorie</span></td></tr><tr><td colspan=2><table width=598 cellpadding=5 cellspacing=0
bgcolor="#FFFFFF"><tr><td colspan=4><h2>$beschreibung</h2></td>
<td>
EOF
out "<img src=\"/files/$bild\" align=left hspace=10>"if$bild;
out <<EOF;
</td>
</tr><tr><td width=90 valign=top><span
<h2> € $printpreis</h2><br></td><td width=150><b>verfügbar:</b> $besttemp</td>
<td width=200 align=right valign=top><span style="font-weight:bold">Stückzahl:</span>
<input type=text name="number=" size=3 value="1"> <input type=submit value="Warenkorb"></td></tr>
</table></td></tr></table></form>
<script language="Javascript">
<!--
SetSid($formcounter);
//-->
</script><p>
EOF
###############################ende ausgabe#########################
$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;
if($_fullsearch_match_pos<$newrange)
{
$txt="Suche nach weiteren Treffern";
$newrange=$_fullsearch_match_pos;
} else
{
out "<b>Kein Treffer.</b><p>" if $_fullsearch_amount<1;
$txt="Suche in weiteren Datensätzen";
}
if($newrange<$_amount_all)
{
out "Es wurde noch nicht in allen Datensätzen gesucht: ";
out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch).
"&fullsearch_range=$newrange,$_fullsearch_range_length\">$bezeichnung</a>";