baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl> if ($cmd eq "do_search") { $cmd=""; out<<EOF; <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type="hidden" name="htx=" value="$htx"> Suchbegriff: <input type="text" name="_fullsearch~~" value="$_fullsearch"> <input type="submit" value="Suchen"> </form> EOF } do_all "_fullsearch~~$_fullsarch fullsearch_match=15000 fullsearch_range=0,150000 fullsearch_sort=$sort cmd=$cmd listfields=-Id,Aktion allfields=-Id,Aktion db=/Lunablu/Karaoke/Titel range^=0,20 sort=$sort input=no","_fullsearch=$_fullsearch"; </perl>
Alle Einträge zum Thema: | Zur Liste |
>Es gibt ja ein paar Quellen Codes aber wo kopiert man die rein
<form action="baseportal.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>
return if $_fullsearch eq "";
out"Treffer: $_fullsearch_amount<br><br>"; while(get_next) { $out= <<EOF; <b>$Name</b><br>$Beschreibung - $Kommentar<p> EOF $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g; out $out; }
my $txt;
{ $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"; }
{ 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\">$txt</a>"; } else { out "Die Datenbank wurde komplett durchsucht."; } </perl>
<form action="baseportal.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>
get "db=/Lunablu/Karaoke/Titel fullsearch_range^=0,5000 fullsearch_match=50";
while(get_next) { $out= <<EOF; <b>$Name</b><br>$Beschreibung - $Kommentar<p> EOF $out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g; out $out; } my $newrange=$_fullsearch_range+$_fullsearch_range_length;
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\">$txt</a>"; } else { out "Die Datenbank wurde komplett durchsucht."; } </perl>
<input type="hidden" name="htx=" value="$htx"> Freie Suche: <input type="text" name="_fullsearch~~" value="$_fullsearch"> <input type="submit" value="Suchen"> </form> <perl> return if $_fullsearch eq ""; get "db=/Lunablu/Karaoke/Titel fullsearch_range^=0,5000 fullsearch_match=50"; out"Treffer: $_fullsearch_amount<br><br>";
{ $out= <<EOF; <b>$Name</b><br>$Titel - $Interpret<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;
{ 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=/Lunablu/Karaoke/Titel&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
{ out "Die Datenbank wurde komplett durchsucht."; } </perl>
out "<a href=\"baseportal.pl?htx=/Lunablu/Karaoke/Titel&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";
get "db=/Lunablu/Karaoke/Titel fullsearch_range^=0,5000 fullsearch_match=50";
get "db=/Lunablu/Karaoke/Titel fullsearch_range^=0,10000 fullsearch_match=100";
<perl> if ($cmd eq "do_search") { $cmd=""; out<<EOF; <form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data"> <input type="hidden" name="htx=" value="$htx"> Suchbegriff: <input type="text" name="_fullsearch~~" value="$_fullsearch"> <input type="submit" value="Suchen"> </form> EOF } do_all "_fullsearch~~$_fullsarch fullsearch_match=15000 fullsearch_range=0,150000 fullsearch_sort=$sort cmd=$cmd listfields=-Id,Aktion allfields=-Id,Aktion db=/Lunablu/Karaoke/Titel range^=0,20 sort=$sort input=no","_fullsearch=$_fullsearch"; </perl>
Liste der Einträge von 2700 bis 2850: | 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 |