# DS werden vor geholt, Bild in Var geschrieben #
$bild=~s/\s//; #Workaround von Sander
my $bild_breite = 120;
my $a_bild ="<img src=/files/$bild width=$bild_breite>" if $bild ne "";
$a_bild = "<span class=grau>Kein Bild zugeordnet</span>" if $bild eq "";

if ($act eq "n"){
   ($a_formtitel,$a_confirm,$a_submit) = ("Neuer Eintrag:","Eintrag","Speichern");
   $a_ra_link = "";
   $feld1_datei=<<EOF;
    <input type=radio name="_filec_bild=" value=1> Keine Datei
    <input type=radio name="_filec_bild=" value=2 checked> Neue Datei:<br>
EOF
}elsif ($act eq "c" && $dsn ne ""){
   ($a_formtitel,$a_confirm,$a_submit,$a_ra_link) = ("Eintrag ändern:","Änderungen","Übernehmen","&$ra_link");
   get ["Id", "==!", "$dsn"], "$db_daten", "einzelds";
   $a_debug_sub.="DS mit Id->$dsn aus $db_daten geholt<br>";
   get "Id=*", "$db_daten.fields", "felder";
   $a_debug_sub.="DS aus $db_daten.fields geholt<br>";
   while(get_next("felder")){
      ${f_.$Field} = ${$Field};
      $a_debug_sub.="..... f_Field = f_$Field |  Wert: ${$Field} <br>";
   }
   $feld1_datei=<<EOF;
   <input type=radio name="_filec_bild=" value=0 checked> Datei behalten ($f_bild)
   <input type=radio name="_filec_bild=" value=1> Keine Datei 
   <input type=radio name="_filec_bild=" value=2> Neue Datei <br>
EOF
$f_bild=~s/\s//; $a_bild_breite = 120;
$a_f_bild ="<img hspace=5 src=/files/$bild width=$a_bild_breite>" if $f_bild ne "";
}

  <tr>
      <td valign="top" colspan=3 class=klein>
      <span class=dunkel>Bild: <br>
      $feld1_datei</span>
      </td>
  </tr>
  ${ \&tz(3,2) }
  <tr>
      <td class=klein> </td>
      <td colspan=2 class=klein>
      <input type=file name="bild:=" size=30 maxlength=15000 onfocus="a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;"></input>
      </td>
  </tr>