| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
  | 
| Ausgewählter Eintrag: | Zur Liste | 
<perl>
get "Datum==*","Termine";
while(get_next("Termine")) {
  out <<EOF;
  <tr>
  <td>$Veranstaltung</td>
  <td>wann? 
EOF
  out datum("$Datum", "lang");
  out <<EOF;
  </td>
  </tr>
EOF
  get "Datum==$Datum", "Teilnehmer";
  while(get_next("Teilnehmer")) {
    out <<EOF;
    <td>$Userid</td>
EOF
  } 
}
</perl>
| Alle Einträge zum Thema: | Zur Liste | 
<perl>
get "Datum==*","Termine";
while(get_next("Termine")) {
  out <<EOF;
  <tr>
  <td>$Veranstaltung</td>
  <td>wann? 
EOF
  out datum("$Datum", "lang");
  out <<EOF;
  </td>
  </tr>
EOF
  get "Datum==$Datum", "Teilnehmer";
  while(get_next("Teilnehmer")) {
    out <<EOF;
    <td>$Userid</td>
EOF
  } 
}
</perl>
<loop db=Teilnehmer code=perl>
$teilnehmer{$Datum}.="$Userid#";
</loop>
<perl>
get "Datum==*","Termine";
while(get_next("Termine"))
{
$datum=datum($Datum, "lang");
out <<EOF;
<tr>
<td>$Veranstaltung</td>
<td>wann? $datum</td>
</tr>
EOF
foreach $Userid (split /#/, substr($teilnehmer{$Datum},0,-1))
{
out "<td>$Userid</td>";
} 
}
</perl>
| Liste der Einträge von 39001 bis 39151: | 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 |