baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
while(get_next "Taschenkunst")
<perl> # Schleife starten get "", "Taschenkunst"; while(get_next "Taschenkunst"){
$IDTEMP=$Id; # IDs der mit Relationsfeldern verbundenen Datanbanken holen get "Id==$Titel","Taschenkunst"; get "Id==$Produzent","Produzent"; get "Id==$Nation","Nation"; get "Id==$Technik","Taschenkunst"; get "Id==$Material","Taschenkunst";
if ($cnt & 1) { $col="153"; } else { $col="255"; }
#Ausgabe der Tabellenzeile für aktuellen Datensatz out <<EOF;
<td style="width: 300px; height: 25px; background-color: rgb(204, 204, $col); vertical-align: center> <font face="Verdana" size="1"><b><a href="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/2pex/taschenkunst/Details&Id==$IDTEMP">$Titel</a></b></font> </td>
</table> EOF } </perl>
|
Alle Einträge zum Thema: | Zur Liste |
while(get_next "Taschenkunst")
<perl> # Schleife starten get "", "Taschenkunst"; while(get_next "Taschenkunst"){
$IDTEMP=$Id; # IDs der mit Relationsfeldern verbundenen Datanbanken holen get "Id==$Titel","Taschenkunst"; get "Id==$Produzent","Produzent"; get "Id==$Nation","Nation"; get "Id==$Technik","Taschenkunst"; get "Id==$Material","Taschenkunst";
if ($cnt & 1) { $col="153"; } else { $col="255"; }
#Ausgabe der Tabellenzeile für aktuellen Datensatz out <<EOF;
<td style="width: 300px; height: 25px; background-color: rgb(204, 204, $col); vertical-align: center> <font face="Verdana" size="1"><b><a href="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/2pex/taschenkunst/Details&Id==$IDTEMP">$Titel</a></b></font> </td>
</table> EOF } </perl>
while(get_next "Taschenkunst"){
while(get_next("Taschenkunst")){
get "", "Taschenkunst"; while(get_next "Taschenkunst"){
$IDTEMP=$Id;# IDs der mit Relationsfeldern verbundenen Datanbanken holen get "Id==$Titel","Taschenkunst"; get "Id==$Produzent","Produzent"; get "Id==$Nation","Nation"; get "Id==$Technik","Taschenkunst"; get "Id==$Material","Taschenkunst";
get "Id==*", "Produzent"; while(get_next("Produzent")) { out "Produzent: $Produzent<br>"; get "Titel==$Titel", "Taschenkunst"; out "Titel: $Titel<br>"; out "Jahr: $Jahrgang<p>"; }
get "Produzent==2Pex", "Produzent"; while(get_next("Produzent")) {out "$Titel<br>";} ->Alle Titel von 2pex
while(get_next("Produzent")) {out "$Produzent<br>";} ->Alle Produzenten aus Deutschland
<perl db=DeineDatenbank>
out <<EOF; <p> <table style="width: 500; text-align: left; table-layout:fixed"; border="0"; cellpadding="0" cellspacing="0" font face="Verdana" color="white" size="1" align="center"> <tr> <td style="width: 150px; height: 25px; background-color: rgb(0, 0, 0); vertical-align: center"> <font face="Verdana" color=#ffffff size="2"><b>Titel</b></font> </td> </tr> </table> EOF # Schleife starten get "", "DeineDatenbank"; while(get_next "DeineDatenbank"){ #ID für DB=DeineDatenbank zwischenspeichern, damit nachher der Link auf die Detailseite funktioniert $IDTEMP=$Id;
if ($cnt & 1) { $col="153"; } else { $col="255"; }
out <<EOF;
<tr>
<font face="Verdana" size="1"><b> <a href="http://www.baseportal.de/cgi-bin/baseportal.pl?htx=/Anmeldename/event_DeinOrdner/Details&Id==$IDTEMP">$Titel</a> </b></font> </td> </tr> </table> EOF </perl>
>Jemand der im Zuge des nicht ankommen wollenden Aufschwungs z.B. nach Schweden zieht, würde für jeden einzelnen Eintrag nun die Nationalität neu eintragen, sind wir ehrlich - würde er nicht, eine inkonsistente Datenbank wäre die Folge.
get "Id==$Nation","Nation";
Liste der Einträge von 11401 bis 11551: | 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 |