<perl>

         get "Id==$_id", "gpurl";
         if ($cmd eq "mod")
             {
                 mod "Id==$_id", [ "gpkat1", "$gpkat1", "gpkat2", "$gpkat2", "gpkat3", "$gpkat3",
                                   "gpukat1", "$gpukat1", "gpukat2", "$gpukat2", "gpukat3", "$gpukat3",
                                   "gpurl", "$gpurl", "gpbes1", "$gpbes1", "gpbes2", "$gpbes2", "gpsprach", "$gpsprach" ], "gpurl"; 
                 out " Eintrag wurde geändert ";
             }           
                         
         #Ausgabe des Detail-Änderungs-Formulars
         out <<EOF;

         <table align=center cellspacing=1 cellpadding=2 border=0>
         <tr bgcolor=#cccccc><td>
         <form action="baseportal.pl?htx=/gpark/gpurldet2&cmd=mod" method="post" enctype="multipart/form-data">
         <input type=hidden name="htx=" value="/gpark/gpurldet2">
         <input type=hidden name="cmd=" value="mod">
   

         <table align=center cellspacing=1 cellpadding=2 border=0>
            <tr><td>&nbsp;</td>
            <tr><td align=right><font face=verdana size=2 color=#000080>Rubrik:</td><td><input type="text" name="$gpkat1:=" size=40 value="$gpkat1"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Rubrik:</td><td><input type="text" name="$gpkat2:=" size=40 value="$gpkat2"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Rubrik:</td><td><input type="text" name="$gpkat3:=" size=40 value="$gpkat3"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Stichwort:</td><td><input type="text" name="$gpukat1:=" size=40 value="$gpukat1"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Stichwort:</td><td><input type="text" name="$gpukat2:=" size=40 value="$gpukat2"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Stichwort:</td><td><input type="text" name="$gpukat3:=" size=40 value="$gpukat3"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>URL:</td><td><input type="text" name="gpurl:=" size=40 value="$gpurl"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Beschreibung:</td><td><input type="text" name="$gpbes1:=" size=40 value="$gpbes1"></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>&nbsp;&nbsp;Beschreibung:</td><td><textarea name="$gpbes2:=" cols=37 rows=5 wrap=virtual>$gpbes2</textarea></td></tr>
            <tr><td align=right><font face=verdana size=2 color=#000080>Sprache:</td><td><input type="textarea" name="$gpsprach:=" size=2 value="$gpsprach"></td></tr>  
            <tr><td>&nbsp;</td>
            <td nowrap><br><input type=submit value="Abschicken">&nbsp;<input type=reset value="Zurücksetzen"></td></tr>
         </table>
         </form>
         </td></tr>
         </table>
EOF
         </perl>