if(%_put){
            $_put{"Eingetragen_von"}=$_user;
        }

        if(%_mod){
            $_mod{"Eingetragen_von"}=$_user;
        }

<center>
<perl>

 get "PLFST_Name=_ ", "Pflegestelle", "erg";
 while (get_next(erg)) {
     $aender="$Vorname $Nachname";
     out "$aender<br>";
     if ($aender ne "")
     {
     mod "Id==$Id", ["PFLST_Name", "$aender"], "Pflegestelle";
     }
     $aender="";
 }
    do_all "db=Pflegestelle databack=f0f0f0 datasize=1 headback=e0e0e0 border=0 spacing=1 padding=2 gridcolor=b0b0b0 dataface=arial,helvetica sort^=Nachname range^=0,50 pagebrowse=bottom buttonbrowse=bottom
           keyfield=Name listtype=list maxlistlength=50 listfields=PFLST_Name,Nachname,Vorname,Strasse,PLZ,Ort,EMail,Telefon,Mobil,Eingetragen_von input=link", "namerein", "pwrein";
    
    if(%_mod){
        $_mod{"Eingetragen_von"}=$_user;
    }

    out "Benutzer: $_User";
</perl>
<br>
<br>
<br>
<p><font face=arial,helvetica size=2><span class="Text"></span>
<p><font size=1>Autor: <span class="Text" name="EMail"><a href="mailto:Hope.Mueller@yahoo.de">Horst-Peter Müller</a></span></font>
</center>