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