| 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 |
$db_feld="$db_daten.fields";
# ........ Optionfeld fuer Kategorie bauen ........ #
# Code von Sander - Danke! #
get "Field==Kategorie",$db_feld; #
$a_debug_sub.="Feld Kategorie aus $db_feld geholt<br>";
@l_o = split/\n/,$Params; #optionen rausdröseln
shift(@l_o); #erstes element entfernen, beschreibung des felds
$anz_optFkat = "<option value=\"\">Kategorie...</option>";
foreach (sort @l_o)
{
if ($f_Kategorie eq $_)
{$anz_optFkat.= "<option selected value=\"$_\">$_</option>";
}else
{$anz_optFkat.= "<option value=\"$_\">$_</option>";
}
}
| Alle Einträge zum Thema: | Zur Liste |
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<head> <title>winforderung</title> </head><body bgcolor="#000000" text="#FFFFFF">
<br><ul> <loop db=nutzereintrag code=perl>
if($Id ne "")
{
get "Id==$Id";
if($xTeam)
{
if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Team",$xTeam,"Spieltag1Ergebniss",$xSpieltag1Ergebniss,"Spieltag2Ergebniss",$xSpieltag2Ergebniss,"Spieltag3Ergebniss",$xSpieltag3Ergebniss,"Spieltag3Finale",$xSpieltag3Finale];
out "<b>Eintrag geändert...</b>";
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>Eintrag ändern</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id==$Id" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="Id=" value="$Id">
<tr><td>Team:</td><td><input type="text" name="xTeam=" value="$Team"></td></tr>
<tr><td>Spieltag1Ergebniss:</td><td><select name="xSpieltag1Ergebniss:="><option>-<option>win<option>loss</select></td></tr>
<tr><td >Spieltag2Ergebniss:</td><td><select name="xSpieltag2Ergebniss:="><option>-<option>win<option>loss</select></td></tr>
<tr><td >Spieltag3Ergebniss:</td><td><select name="xSpieltag3Ergebniss:="><option>-<option>win<option>loss</select></td></tr>
<tr><td >Finale:</td><td><select name="Spieltag3Finale:="><option>-<option>Champs<option>loss</select></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF
}
} else
{
out "Mit dem Passwort können Sie den Eintrag später bearbeiten.";
init; get;
list "add";
get;
out "<table><tr><td>ID</td><td>Spieltag 1</td><td>Spieltag 2</td> <td>Spieltag 3</td><td>Finale</td></tr>";
while(get_next)
{
out "<tr><td> $_id </td><td>$Spieltag1Ergebniss</td><td>$Spieltag2Ergebniss</td><td>$Spieltag3Ergebniss</td><td>$Spieltag3Finale</td></tr>";
}
out "</table>";
</loop>
</body>
</html>
modifizieren/überschreiben.
<tr><td>Spieltag1Ergebniss:</td><td><select name="xSpieltag1Ergebniss:="><option>-<option>win<option>loss</select></td></tr>
$db_feld="$db_daten.fields";
# ........ Optionfeld fuer Kategorie bauen ........ #
# Code von Sander - Danke! #
get "Field==Kategorie",$db_feld; #
$a_debug_sub.="Feld Kategorie aus $db_feld geholt<br>";
@l_o = split/\n/,$Params; #optionen rausdröseln
shift(@l_o); #erstes element entfernen, beschreibung des felds
$anz_optFkat = "<option value=\"\">Kategorie...</option>";
foreach (sort @l_o)
{
if ($f_Kategorie eq $_)
{$anz_optFkat.= "<option selected value=\"$_\">$_</option>";
}else
{$anz_optFkat.= "<option value=\"$_\">$_</option>";
}
}
<select name="xSpieltag1Ergebniss:="><option>$Spieltag1Ergebniss<option>-<option>win<option>loss</select>
| Liste der Einträge von 37200 bis 37350: | 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 |