baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<loop db=objekte Id==5 code=perl> out <<EOF; EOF </loop>
<include src=textbegrenzung>
<perl> out <<EOF; EOF </perl>
<include src=textbegrenzung>
Alle Einträge zum Thema: | Zur Liste |
<loop db=objekte Id==5 code=perl> out <<EOF; EOF </loop>
<include src=textbegrenzung>
<perl> out <<EOF; EOF </perl>
<include src=textbegrenzung>
<include src=textbegrenzung>
<loop db=objekte Id==5 code=perl> &sub_laenge("$Ortsbeschreibung","$Beschreibung"); </loop>
sub sub_laenge { ($n_Ortsbeschreibung,$n_Beschreibung)=@_; $laenge=25; my $font='Arial, Verdana'; my $size='2'; $Ende = substr($n_Ortsbeschreibung, $laenge); $Stop = index($Ende,"\ "); $Ende = substr($Ende, 0, $Stop); $Anfang = substr($n_Beschreibung, 0, $laenge); }
<perl> geht nicht, gibt es (fast) nicht.</perl>
<include src=Block code==1>
if($code==1) { <loop db=objekte Id==5 code=perl> out <<EOF;
$laenge=25; my $font='Arial, Verdana'; my $size='2'; $Ende = substr($Ortsbeschreibung, $laenge); $Stop = index($Ende,"\ "); $Ende = substr($Ende, 0, $Stop); $Anfang = substr($Beschreibung, 0, $laenge); out <<EOF;
</loop> }
{ <loop db=objekte Id==5 code=perl> out <<EOF;
$laenge=25; my $font='Arial, Verdana'; my $size='2'; $Ende = substr($Ortsbeschreibung, $laenge); $Stop = index($Ende,"\ "); $Ende = substr($Ende, 0, $Stop); $Anfang = substr($Beschreibung, 0, $laenge); out <<EOF;
</loop> }
if ($code==1) { <loop> </loop> } if (code==2) { <loop> </loop> }
Liste der Einträge von 31200 bis 31350: | 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 |