baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<table> <tr> <td><b>Presse</b><br> <loop db=Presse> $Titel<br> </loop> </td>
<loop db=News> $Titel<br> </loop> </td> </tr></table>
Alle Einträge zum Thema: | Zur Liste |
<table> <tr> <td><b>Presse</b><br> <loop db=Presse> $Titel<br> </loop> </td>
<loop db=News> $Titel<br> </loop> </td> </tr></table>
<td><b>News</b><br> <loop db=News> <h4><a href="$URL">$Titel</a></h4> </loop> </td> </tr></table>
</td><td valign=top>***** <!-- Übersicht ausgeben aller datenbanken --> <table> <perl> my $link="/cgi-bin/baseportal.pl?htx=/Webfox/Redaktionssystem/"; #[1] out "<tr><td valign=top>"; #[2] &inhalt ("News","NEWS",10); #[3] out "</td><td valign=top>"; #[2a] &inhalt ("Presse","PRESSE",10); out "</td></tr>"; sub inhalt #[4] { my $i=0; my ($db,$header,$range) = @_; out "<table><tr><td bgcolor=c0c0c0><b>$header</b><br><font face=Arial size=2>Die $range neusten Einträge.</font></td></tr>"; out "<tr><td bgcolor=cfcfcf><font face=Arial size=2>"; get "Id==* sort=-", "$db", "saetze"; while(get_next("saetze") && $i < $range) { out "<a href='$link$db&id=$_id'>$Titel</a><br>"; $i++; } out "</font></td></tr></table>"; } </perl> <!-- Übersicht ende --> </table>*****
&inhalt ruft die unterrutine #[4] auf. folgende Parameter werden dabei erwartet:
</td><td valign=top>***** <a href="/cgi-bin/baseportal.pl?htx=$htx"><b>Alle Einträge</b></a><br> <loop Id==$id sort=->
Liste der Einträge von 61500 bis 61650: | 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 |