if ($cmd eq "do_mod")
{
get "Id==$_get{Id}", "adressen";
if ($namerein ne $verantwortlich)
{
$cmd="";
out "Sie haben keine Berechtigung für diese Aktion!!!";
}
}
#----NEU!!!!!!!Abfangen von unberechtigten Zugriffen----#
if ($cmd eq "mod")
{
get "Id==$_get{Id}", "adressen";
if ($namerein ne $verantwortlich)
{
$cmd="";
out "Sie haben keine Berechtigung für diese Aktion!!!";
}
}

# ----Mit der folgenden Abfrage/Anweisung kann man das Löschen des Datensatzes unterbinden---
if ($cmd eq "del")
{
$cmd="";
out "Diese Aktion ist nicht verfügbar";
}
#--------dadurch ist nur das Bearbeiten möglich
# --Mit der folgenden Abfrage/Anweisung kann man das Hinzufügen eines neuen Datensatzes unterbinden---
if ($cmd eq "add")
{
$cmd="";
out "Diese Aktion ist nicht verfügbar";
}