baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
if($cmd eq "buscar") { out <<EOF; <form action="baseportal.pl?cmd=suchen&htx=$htx" method="post" enctype="multipart/form-data"> <input type="hidden" name="htx=" value="$htx"> Freie Suche: <input type="text" name="suchbegriffe:=" value=""> <select name="Categoriea:=" size=1> <option value="">Todos</option> EOF get "sort=-dir", "$dblink"; while(get_next("$dblink")) { push(@MIR,"$dir") } foreach $nr(@MIR) #--- für jedes Hauptverzeichnis { @MM = split(/,/,$nr); $VZ=$MM[0]; $neu{$VZ}++ ; } foreach $test (keys %neu) { out "<option value=$test>$test</option>"; } out <<EOF; </select> <select name="Verknupfung:=" size=1> <option value="">Una de las Palabras</option> <option value=und>Todas las Palabras</option> </select> <select name="suchart:=" size=1> <option value="~~">Suche irgendwo im Text - Ignoriere Gross/Klein-Schreibung</option> <option value="~=">Suche Wortanfang Ignoriere Gross/Klein</option> <option value="==">Suche exaktes Wort Ignoriere Gross/Klein</option> <option value="~~!">Suche irgendwo im Text Beachte Gross/Klein-Schreibung</option> <option value="~=!">Suche Wortanfang Beachte Gross/Klein</option> <option value="==!">Suche exaktes Wort Beachte Gross/Klein</option> </select> <select name="anz:=" size=1> <option value="3">3</option> <option value="20">20</option> <option value="30">30</option> <option value="40">40</option> <option value="50">50</option> <option value="60">60</option> <option value="70">70</option> <option value="80">80</option> <option value="80">90</option> <option value="100">100</option>
<input type="submit" value="Suchen"> </form> EOF }
if ($cmd eq "suchen")#---- Ausgabe bei Volltextsuche { @suchargumente=split(/ /, $suchbegriffe); $suchbegriffe=""; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.","; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-1); if ($suchbegriffe eq "") #---- Suchbegriffe füllen (wird beim Blättern benötigt) { $suchbegriffe=$_fullsearch; } if ($Verknupfung eq "und") { @suchargumente=split(/ /, $suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2); } get "_fullsearch$suchart$suchbegriffe fullsearch_match=$anz fullsearch_sort=-Hits Verzeichniss==$Categoriea" , "$dbname", "suchen"; while(get_next("suchen")) { if ($_loop % 2 == 0)#------Farbwechsel über $colt { $colt= "<tr bgcolor=\"#f9f9f9\">"; } else { $colt= "<tr bgcolor=\"#ffffff\">"; } #----------------- Ende Farbwechsel ------------------------------------------ $Vote = sprintf('%.2f', $Vote); #- Vote auf zwei Stellen runden $Inhalt=substr($Inhalt,0,65)."...."; #- Ausgabe kürzen
my $NEU="<font color=red>NUEVO: </font>" if($_raw{Erstellt} gt datum("jetzt-2", "intern"));
$Titel=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g; $Inhalt=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g; $list= "<td valign=top width=35%><font style='font-family: Arial; font-size: 8pt'><a href='baseportal.pl?sel=$sel&LID=$_id&cmd=info&SHOW=$_get{SHOW}&mid=$_get{mid}&lid=$_get{lid}&htx=$htx'>$Titel</a></font></td><td valign=top width=35%><font style='font-family: Arial; font-size: 8pt'>$Inhalt</font></td><td valign=top><font size=1 face=Arial>Hits : $Hits</font></td><td valign=top><font size=1 face=Arial>Punctos : $Vote</font></td><td valign=top><font size=1 face=Arial><b><a href='$lbasecgi?LID=$_id&htx=$linkhits&zeitversek==$zeitversek&Link==$Link' target='_blank'>$pic1</a></b></font></td></tr>"; out "<br>$_fullsearch_amount<br>$_fullsearch_match_pos<br>$_amount_query<br>$_fullsearch_match<br>$_fullsearch"; out $colt.$list; } my $newrange=$_fullsearch_range+$_fullsearch_range_length; my $txt; if($_fullsearch_match<=$_amount_query) { $txt="Suche nach weiteren Treffern"; $newrange=$_fullsearch_match_pos; } else { out "<b>Kein Treffer.</b><p>" if $_amount_query<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?cmd=suchen&htx=$htx&_fullsearch$suchart".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length&suchart=$suchart&anz=$anz\">$txt</a>"; } else { out "Die Datenbank wurde komplett durchsucht."; } }
Alle Einträge zum Thema: | Zur Liste |
if($cmd eq "buscar") { out <<EOF; <form action="baseportal.pl?cmd=suchen&htx=$htx" method="post" enctype="multipart/form-data"> <input type="hidden" name="htx=" value="$htx"> Freie Suche: <input type="text" name="suchbegriffe:=" value=""> <select name="Categoriea:=" size=1> <option value="">Todos</option> EOF get "sort=-dir", "$dblink"; while(get_next("$dblink")) { push(@MIR,"$dir") } foreach $nr(@MIR) #--- für jedes Hauptverzeichnis { @MM = split(/,/,$nr); $VZ=$MM[0]; $neu{$VZ}++ ; } foreach $test (keys %neu) { out "<option value=$test>$test</option>"; } out <<EOF; </select> <select name="Verknupfung:=" size=1> <option value="">Una de las Palabras</option> <option value=und>Todas las Palabras</option> </select> <select name="suchart:=" size=1> <option value="~~">Suche irgendwo im Text - Ignoriere Gross/Klein-Schreibung</option> <option value="~=">Suche Wortanfang Ignoriere Gross/Klein</option> <option value="==">Suche exaktes Wort Ignoriere Gross/Klein</option> <option value="~~!">Suche irgendwo im Text Beachte Gross/Klein-Schreibung</option> <option value="~=!">Suche Wortanfang Beachte Gross/Klein</option> <option value="==!">Suche exaktes Wort Beachte Gross/Klein</option> </select> <select name="anz:=" size=1> <option value="3">3</option> <option value="20">20</option> <option value="30">30</option> <option value="40">40</option> <option value="50">50</option> <option value="60">60</option> <option value="70">70</option> <option value="80">80</option> <option value="80">90</option> <option value="100">100</option>
<input type="submit" value="Suchen"> </form> EOF }
if ($cmd eq "suchen")#---- Ausgabe bei Volltextsuche { @suchargumente=split(/ /, $suchbegriffe); $suchbegriffe=""; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.","; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-1); if ($suchbegriffe eq "") #---- Suchbegriffe füllen (wird beim Blättern benötigt) { $suchbegriffe=$_fullsearch; } if ($Verknupfung eq "und") { @suchargumente=split(/ /, $suchbegriffe); $suchbegriffe="+"; for (@suchargumente) { $suchbegriffe=$suchbegriffe.$_.",+"; } $suchbegriffe=substr($suchbegriffe,0,length($suchbegriffe)-2); } get "_fullsearch$suchart$suchbegriffe fullsearch_match=$anz fullsearch_sort=-Hits Verzeichniss==$Categoriea" , "$dbname", "suchen"; while(get_next("suchen")) { if ($_loop % 2 == 0)#------Farbwechsel über $colt { $colt= "<tr bgcolor=\"#f9f9f9\">"; } else { $colt= "<tr bgcolor=\"#ffffff\">"; } #----------------- Ende Farbwechsel ------------------------------------------ $Vote = sprintf('%.2f', $Vote); #- Vote auf zwei Stellen runden $Inhalt=substr($Inhalt,0,65)."...."; #- Ausgabe kürzen
my $NEU="<font color=red>NUEVO: </font>" if($_raw{Erstellt} gt datum("jetzt-2", "intern"));
$Titel=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g; $Inhalt=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g; $list= "<td valign=top width=35%><font style='font-family: Arial; font-size: 8pt'><a href='baseportal.pl?sel=$sel&LID=$_id&cmd=info&SHOW=$_get{SHOW}&mid=$_get{mid}&lid=$_get{lid}&htx=$htx'>$Titel</a></font></td><td valign=top width=35%><font style='font-family: Arial; font-size: 8pt'>$Inhalt</font></td><td valign=top><font size=1 face=Arial>Hits : $Hits</font></td><td valign=top><font size=1 face=Arial>Punctos : $Vote</font></td><td valign=top><font size=1 face=Arial><b><a href='$lbasecgi?LID=$_id&htx=$linkhits&zeitversek==$zeitversek&Link==$Link' target='_blank'>$pic1</a></b></font></td></tr>"; out "<br>$_fullsearch_amount<br>$_fullsearch_match_pos<br>$_amount_query<br>$_fullsearch_match<br>$_fullsearch"; out $colt.$list; } my $newrange=$_fullsearch_range+$_fullsearch_range_length; my $txt; if($_fullsearch_match<=$_amount_query) { $txt="Suche nach weiteren Treffern"; $newrange=$_fullsearch_match_pos; } else { out "<b>Kein Treffer.</b><p>" if $_amount_query<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?cmd=suchen&htx=$htx&_fullsearch$suchart".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length&suchart=$suchart&anz=$anz\">$txt</a>"; } else { out "Die Datenbank wurde komplett durchsucht."; } }
get "_fullsearch~=!test,test fullsearch_match=3 fullsearch_sort=-Hits Verzeichniss==$Categoriea" , "$dbname", "suchen";
get ["_fullsearch", "~=!", "test,test", "&", "Verzeichnis", "==", $Categoriea] , "$dbname", "suchen";
Liste der Einträge von 47100 bis 47250: | 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 |