baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl>
if (index($suchbegriffe,"+") ==-1) { @suchargumente=split(/ /,$suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2); }
</perl> <loop db=produkte_Kopie code=perl _fullsearch==$suchbegriffe sort=sku > </loop> <perl>
return if $_fullsearch eq "";
while(get_next) {
$out= <<EOF; <b><a href="baseportal.pl?htx=$link&show=products&sku=$sku"></a>$bezeichnung</b><br>$beschreibung - $bestnr<p> EOF
|
Alle Einträge zum Thema: | Zur Liste |
Hat einer der Suchprofis eine Lösung? Danke schonmal, Helmut Hier der Quelltext: <HTML> <HEAD>
<TITLE>Suche</TITLE> </HEAD> <BODY BACKGROUND="http://www.grobmotorik.de/images/bg.jpg"> <FORM ACTION="baseportal.pl? htx=$htx" METHOD="POST" TARGET="daten" ENCTYPE="multipart/form-data"> <P><INPUT TYPE="hidden" NAME="htx=" VALUE="/grobmotorik.de/webladen/produkte_Kopie"> <TABLE WIDTH="109" BORDER="0" CELLSPACING="2" CELLPADDING="0"> <TR> <TD WIDTH="100%"> <P><CENTER> Artikelsuche:</CENTER></TD> </TR> <TR> <TD WIDTH="100%"> <P><CENTER> <INPUT TYPE="text" SIZE="13" NAME="_fullsearch=="
</TR> <TR> <TD WIDTH="100%"> <P><CENTER> <INPUT TYPE="submit" VALUE="Suchen"></CENTER></TD> </TR> </TABLE> </FORM>
</BODY> </HTML>
#############so sieht mein Eingabefenster aus##### <P><CENTER> <INPUT TYPE="text" SIZE="13" NAME="suchbegriffe=" VALUE="$_fullsearch"></CENTER></TD> #############und so die Ausgabe###### <html> <head> <title>Grobmotorik_Laden</title> <include src=css> </head> <body bgcolor="#FFFFFF"> <perl>
@suchargumente=split(/ /, $suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2); </perl>
<perl>
get "_fullsearch==$suchbegriffe";
return if $_fullsearch eq "";
while(get_next) {
$out= <<EOF; <b>$bezeichnung</b><br>$beschreibung <p> EOF $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).
} else { out "Die Datenbank wurde komplett durchsucht."; }
get "_fullsearch==$suchbegriffe";
<P><CENTER> <INPUT TYPE="text" SIZE="13" NAME="suchbegriffe="
#############und so die Ausgabe######
<html> <head> <title>Grobmotorik_Laden</title> <include src=css> </head> <body bgcolor="#FFFFFF"> <perl> @suchargumente=split(/ /, $suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2);
</perl> <perl>
$link="bbeta.pl?htx=".$htx; get "_fullsearch~~$suchbegriffe"; return if $_fullsearch eq "";
while(get_next) {
$out= <<EOF;
<b>$bezeichnung</b><br>$beschreibung <p> EOF $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).
} else { out "Die Datenbank wurde komplett durchsucht."; }
im Dezember hatte ich es hingekrigt hier Ausschniite aus meinem Temlate:
if (index($suchbegriffe,"+") == -1) { @suchargumente=split(/ /, $suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2); }
<loop db=brueckenbau code=perl _fullsearch==$suchbegriffe sort=-Datum>
<perl>
if (index($suchbegriffe,"+") ==-1) { @suchargumente=split(/ /,$suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2); }
</perl> <loop db=produkte_Kopie code=perl _fullsearch==$suchbegriffe sort=sku > </loop> <perl>
return if $_fullsearch eq "";
while(get_next) {
$out= <<EOF; <b><a href="baseportal.pl?htx=$link&show=products&sku=$sku"></a>$bezeichnung</b><br>$beschreibung - $bestnr<p> EOF
<input type="hidden" name="range=" value="0,10">
Liste der Einträge von 51300 bis 51450: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |