| 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 |
$"=' ';
get "feldA==*";
while (get_next)
{
push @liste, $felda if index(" @liste "," $felda ")<0; # Wert mit Liste vergleichen, wenn noch nicht vorhanden, hinzufügen
}
for (@liste)
{
out "$_<br>"; # $_ ist jeweils der Wert
}
| Alle Einträge zum Thema: | Zur Liste |
$"=' ';
get "feldA==*";
while (get_next)
{
push @liste, $felda if index(" @liste "," $felda ")<0; # Wert mit Liste vergleichen, wenn noch nicht vorhanden, hinzufügen
}
for (@liste)
{
out "$_<br>"; # $_ ist jeweils der Wert
}
get "Besitzer==$namerein", "mailliste";
while (get_next ("mailliste"))
{
out <<EOF;
<tr>
<td bgcolor="#ffff66"><span class="tatext">
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/verwitwet/mail/mailvertliste&Listenname=$Listenname&namerein=$namerein&sid=$sid_aktuell&cmd=all&mailId==$_id">$Listenname</a>
</span></td>
</tr>
EOF
}
$"=' ';
get "Besitzer==$namerein", "mailliste";
while (get_next ("mailliste"))
{
push @liste, $Listenname if index(" @liste "," $Listenname ")<0; # Wert mit Liste vergleichen, wenn noch nicht vorhanden, hinzufügen
}
for (@liste)
{
out <<EOF;
<tr>
<td bgcolor="#ffff66"><span class="tatext">
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/verwitwet/mail/mailvertliste&Listenname=$_&namerein=$namerein&sid=$sid_aktuell&cmd=all">$_</a>
</span></td>
</tr>
EOF
}
<loop sort=Titel code=perl> out $Titel,"<br>" if ($merke ne $Titel); $merke = $Titel; </loop>
| Liste der Einträge von 60001 bis 60151: | 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 |