baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<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> return if $_fullsearch eq ""; get "fullsearch_match=10"; while(get_next) { $out= <<EOF; $Titel<br> $Name<br> $Ort<br> $EMail<br> $Telefon<br> $Text<p> EOF $out=~ s#$_fullsearch_regex#<font color=red>$1</font>#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\">$txt</a>"; } else { out "Die Datenbank wurde komplett durchsucht."; } </perl>
Alle Einträge zum Thema: | Zur Liste |
<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> return if $_fullsearch eq ""; get "fullsearch_match=10"; while(get_next) { $out= <<EOF; $Titel<br> $Name<br> $Ort<br> $EMail<br> $Telefon<br> $Text<p> EOF $out=~ s#$_fullsearch_regex#<font color=red>$1</font>#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\">$txt</a>"; } else { out "Die Datenbank wurde komplett durchsucht."; } </perl>
$out= <<EOF; $Titel<br> $Name<br> $Ort<br> $EMail<br> $Telefon<br> $Text<p> EOF
$out= <<EOF; Titel: $Titel<br>Name: $Name<br>Ort: $Ort<br>EMail: <a href="mailto:$EMail">$EMail</a><br>Telefon: $Telefon<br>Text: $Text<p> EOF
Liste der Einträge von 55200 bis 55350: | 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 |