| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
| 
 | 
| Ausgewählter Eintrag: | Zur Liste | 
<perl>
out "<select name=\"_Anfang_Tag:=\">";
for (1..31)
{
out "<option";
out " selected" if $_ == datum($Anfang,"Tag");
out ">".(length($_)==1?"0":"")."$_</option>"; #wenn länge = 1 ist, wird ne 0 davorgeschrieben
}
out "</select><select name=\"_Anfang_Monat:=\">";
for ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember")
{
out "<option";
out " selected" if $_ eq datum($Anfang,"Monatname");
out ">$_</option>";
}
out "</select><select name=\"_Anfang_Jahr:=\">";
for (2001..2010)
{
out "<option";
out " selected" if $_ == datum($Anfang,"Jahr");
out ">$_</option>";
}
out "</select>";
</perl>
| Alle Einträge zum Thema: | Zur Liste | 
if ($_Anfang_Tag eq "1")
      { $at1_select="selected";}
      elsif ($_Anfang_Tag eq "2")
          { $at2_select="selected";}
      elsif ($_Anfang_Tag eq "3")
          { $at3_select="selected";}
      elsif ($_Anfang_Tag eq "4")
          { $at4_select="selected";}
      elsif ($_Anfang_Tag eq "5")
          { $at5_select="selected";}
      ........
      
      elsif ($_Anfang_Tag eq "29")
          { $at29_select="selected";}
      elsif ($_Anfang_Tag eq "30")
          { $at30_select="selected";}
      else 
          { $at31_select="selected";}
<TD bgcolor="$farbe1" ><FONT face=arial,helvetica size=2> <SELECT name=x_Anfang_Tag=> <OPTION $at1_select>1 <OPTION $at2_select>2 <OPTION $at3_select>3 <OPTION $at4_select>4 <OPTION $at5_select>5
<OPTION $at28_select>28 <OPTION $at29_select>29 <OPTION $at30_select>30 <OPTION $at31_select>31 </OPTION></SELECT>.
<perl>
out "<select name=\"_Anfang_Tag:=\">";
for (1..31)
{
out "<option";
out " selected" if $_ == datum($Anfang,"Tag");
out ">".(length($_)==1?"0":"")."$_</option>"; #wenn länge = 1 ist, wird ne 0 davorgeschrieben
}
out "</select><select name=\"_Anfang_Monat:=\">";
for ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember")
{
out "<option";
out " selected" if $_ eq datum($Anfang,"Monatname");
out ">$_</option>";
}
out "</select><select name=\"_Anfang_Jahr:=\">";
for (2001..2010)
{
out "<option";
out " selected" if $_ == datum($Anfang,"Jahr");
out ">$_</option>";
}
out "</select>";
</perl>
| Liste der Einträge von 47700 bis 47850: | 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 |