| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<perl> out <<EOF; <form action='http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/Babsie99/Seite2' method='post' enctype='multipart/form-data'>
get ["Ort", "==", "*"], "Datei", "erghash";
$Ort =~ s/ /\\ /g;
$Ort = "\"$Ort\""; ## diese Zeile einfügen
$opOrt{$Ort}++
}
foreach my $opOrt(sort keys %opOrt){
$a_opOrt .= "<option value=$opOrt>$opOrt";
}
my $sl = "selected" if $fort eq "";
out<<EOF;
<select name="fort=" value='$fort'>$a_opOrt
</select>
<input type="submit" value="ZEIGEN">
</form>
</center>
EOF
</perl>
| Alle Einträge zum Thema: | Zur Liste |
<perl> out <<EOF; <form action='....' target='Daten' method='post' enctype='multipart/form-data'>
get "Ort==*", "Datei", "erghash";
while(get_next("erghash")) {
$opOrt{$Ort}++
}
foreach my $opOrt(sort keys %opOrt){
$a_opOrt .= "<option value=$opOrt>$opOrt";
}
my $sl = "selected" if $fort eq "";
out<<EOF;
<select name="fort=" value='$fort'>$a_opOrt
</select>
<input type="text" value="ZEIGEN">
</form>
</center>
EOF
</perl>
get ["Ort", "==", "*"], "Datei", "erghash";
$feld_ort =~ s/ /\\ /g;
...
get "Ort==*", "Datei", "erghash";
while(get_next("erghash")) {
$Ort = "\"$Ort\""; ## diese Zeile einfügen
$opOrt{$Ort}++
...
<perl>
$append = "&Ort~=$_sel{Ort}" if $_sel{Ort} ne "";
$append = $append."&Bereich~=$_sel{Bereich}" if $_sel{Bereich} ne "";
$Rubrik||="Acts";
#------------------------------------------------
out "<tr align=center>";
while(get_next(Datei))
{
$counter++;
<left>;
if($counter%4==0){$trenner = "</tr><tr>";
}
else{$trenner = "";
}
$rubrik_html = convert_html($Rubrik);
out "<td>
<a href='http:...'>
} out "</tr></table>";
<perl> out <<EOF; <form action='http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/Babsie99/Seite2' method='post' enctype='multipart/form-data'>
get ["Ort", "==", "*"], "Datei", "erghash";
$Ort =~ s/ /\\ /g;
$Ort = "\"$Ort\""; ## diese Zeile einfügen
$opOrt{$Ort}++
}
foreach my $opOrt(sort keys %opOrt){
$a_opOrt .= "<option value=$opOrt>$opOrt";
}
my $sl = "selected" if $fort eq "";
out<<EOF;
<select name="fort=" value='$fort'>$a_opOrt
</select>
<input type="submit" value="ZEIGEN">
</form>
</center>
EOF
</perl>
$Ort =~ s/ /\\ /g; $Ort = "\"$Ort\""; ## diese Zeile einfügen
$Ort =~ s/ /\\ /g; $Ort = "\"$Ort\""; ## diese Zeile einfügen
foreach my $opOrt(sort keys %opOrt){
$a_opOrt .= "<option value=$opOrt>$opOrt";
foreach my $opOrt(sort keys %opOrt){
$opOrt_aus = $opOrt;
$opOrt_aus =~ s/"//g;
$opOrt_aus =~ s/\\//g;
$a_opOrt .= "<option value=$opOrt>$opOrt_aus";
<perl>
$append = "&Ort~=$_sel{Ort}" if $_sel{Ort} ne "";
$append = $append."&Bereich~=$_sel{Bereich}" if $_sel{Bereich} ne "";
$Rubrik||="Acts";
# das get ist etwas "konfus, das muss bereinigt werden (Ort=$Ort und
# Ort=$fort ist irgendwie unlogisch, entweder kommt als Parameter der Ort
# oder der gefilterte Wert aus dem Formularfeld fort, da fort als letzter
# Filterparameter eingegeben wurde, wird eh der erste Filterwert
# überschrieben.
# get "Rubrik==Acts sort=Ort Ort==$Ort Ort==$fort range=$range", "Datei";
# so wäre es besser und IMHO sinnvoller, ein paar Sachen müssen vorher noch
# hin, u.a. die Maskierung der Leerzeichen, damits auch geholt wird und ein
# definiertes Vorbelegen von $fort, damit keine Fehler kommen, wenn kein
# Filterwert übergeben wird:
$fort ||= "*"; # Parameter $fort mit dem Stern für alle Datensätze
# vorbelegen, wenn er nicht vorhanden ist
$fort =~ s/ /\\ /g; # Leerzeichen in $fort maskieren
get "Ort==$fort Rubrik==Acts sort=Ort range=$range", "Datei";
# Erklärung:
# Hole alle Datensätze, deren Wert gleich dem im Parameter fort übergebenem
# Wert ist (wenn kein Parameterwert übergeben wurde, werden alle Datensätze
# mit allen beliebigen Werten für Ort angezeigt) und deren Rubrik gleich dem
# Wert "Acts" entspricht, sortiere diese nach Ort
#
#------------------------------------------------
# hier muss IMHO noch etwas am HTML gefeilt werden, aber das soll nicht mein
# Thema sein ;.)
out "<tr align=center>";
while(get_next(Datei))
{
$counter++;
<left>;
if($counter%4==0){$trenner = "</tr><tr>";
}
else{$trenner = "";
}
$rubrik_html = convert_html($Rubrik);
out "<td>
<a href='http:...'>
} out "</tr></table>";
| Liste der Einträge von 16501 bis 16651: | 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 |