baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
# --- form_out - formular fuer eingabe/aenderung ausgeben --- # rein: $id zu uebermittelnde Id # $cmd zu uebermittelnder "cmd" # $als zu uebermittelndes $als ("Unterpunkt" oder "Folgepunkt") # $Titel im Textfeld "Titel" vorgegebener Wert # $Text im Textarea-Feld "Text" vorgegebener Wert # sub form_out { my($id, $cmd, $als, $Titel, $Text)=@_;
$als='<input type=hidden name="als=" value="'.$als.'">' if $als; # als HTML-hidden-Feld, falls vorhanden my $hcf='<input type=hidden name="frame=" value="inhalt">' if $cf; # als HTML-hidden-Feld, falls gesetzt $Titel=convert_html($Titel); $Text=convert_br($Text); # sonderzeichen entschaerfen
out <<EOF; <form action="bbeta.pl?htx=$htx&cmd=$cmd$cf&id=$id" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <input type=hidden name="cmd=" value="$cmd"> <input type=hidden name="id=" value="$id"> $hcf $als <table> <tr> <td align=right><font face=arial,helvetica size=2>Titel:</td> <td><font face=arial,helvetica size=2><input type="text" name="Titel=" size=20 value="$Titel"></td> </tr><tr> <td align=right><font face=arial,helvetica size=2>Text:</td><td><font face=arial,helvetica size=2><textarea name="Text=" cols=50 rows=12 wrap=virtual>$Text</textarea></td> </tr><tr> <td></td><td nowrap><input type=submit value="Abschicken"> <input type=reset value="Zurücksetzen"> </td></tr></table> </form>
} </perl>
</body></html>
|
Alle Einträge zum Thema: | Zur Liste |
<form action="bbeta.pl?htx=$htx&cmd=$cmd$cf&id=$id" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <input type=hidden name="cmd=" value="$cmd"> <input type=hidden name="id=" value="$id"> $hcf $als <table> <tr> <td align=right><font face=arial,helvetica size=2>Titel:</td> <td><font face=arial,helvetica size=2><input type="text" name="Titel=" size=20 value="$Titel"></td> </tr><tr> <td align=right><font face=arial,helvetica size=2>Text:</td><td><font face=arial,helvetica size=2><textarea name="Text=" cols=50 rows=12 wrap=virtual>$Text</textarea></td> </tr><tr> <td></td><td nowrap><input type=submit value="Abschicken"> <input type=reset value="Zurücksetzen"> </td></tr></table> </form>
$text=convert_br($text);
# --- form_out - formular fuer eingabe/aenderung ausgeben --- # rein: $id zu uebermittelnde Id # $cmd zu uebermittelnder "cmd" # $als zu uebermittelndes $als ("Unterpunkt" oder "Folgepunkt") # $Titel im Textfeld "Titel" vorgegebener Wert # $Text im Textarea-Feld "Text" vorgegebener Wert # sub form_out { my($id, $cmd, $als, $Titel, $Text)=@_;
$als='<input type=hidden name="als=" value="'.$als.'">' if $als; # als HTML-hidden-Feld, falls vorhanden my $hcf='<input type=hidden name="frame=" value="inhalt">' if $cf; # als HTML-hidden-Feld, falls gesetzt $Titel=convert_html($Titel); $Text=convert_br($Text); # sonderzeichen entschaerfen
out <<EOF; <form action="bbeta.pl?htx=$htx&cmd=$cmd$cf&id=$id" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <input type=hidden name="cmd=" value="$cmd"> <input type=hidden name="id=" value="$id"> $hcf $als <table> <tr> <td align=right><font face=arial,helvetica size=2>Titel:</td> <td><font face=arial,helvetica size=2><input type="text" name="Titel=" size=20 value="$Titel"></td> </tr><tr> <td align=right><font face=arial,helvetica size=2>Text:</td><td><font face=arial,helvetica size=2><textarea name="Text=" cols=50 rows=12 wrap=virtual>$Text</textarea></td> </tr><tr> <td></td><td nowrap><input type=submit value="Abschicken"> <input type=reset value="Zurücksetzen"> </td></tr></table> </form>
} </perl>
</body></html>
Liste der Einträge von 57900 bis 58050: | 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 |