| 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 |