# - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
       # Wenn Daten aus eig. Form mit "feldname=" übergeben werden und
       # %_put deshalb nicht da ist; Workaround f. chg, damit DS-Inhalte nicht
       # gekillt werden, die erhalten bleiben sollen (Feld bspw. nicht im eigenen Formular)
       if (not defined $_put{_amount} ){# wenn %_put nicht vorhanden
          # Wichtigstes Paar f. %_put, damit es aktiv ist und chg undef richtig ausgef. wird
          $_put{_amount} = 1;
          if ($dsn){get "Id==!$dsn", "$db_daten", "hole_chgds";}
          get "Id==*", "$db_daten.fields", "edsfelder";
          while(get_next("edsfelder")){
            if ($Field ne "Id"){# ID nicht mit in \%_put (Ändern) - sonst inkonsistente DB!
               $_put{$Field} = ${$Field};  #alle Werte ausser ID des DS
            }
            if (exists ($_get{$Field}) && $_get{$Field} ne $_put{$Field}){
               $_put{$Field} = $_get{$Field} ;  # Inh. ändern wenn in get vorh. und anders
            }
          } # E while-get-next edsfelder
       } # E if not put_amount

     chg "Id==!$dsn", undef, "$db_daten";
     $act = "l";
     $a_actiontext = "Datensatz geändert...";
     $dsn = "";
}