################################################################
# Aktionen je nach Übergabeparametern und Werten von _chk_zugang
#################################################################
$a_debug.= "<b>DB-Aktionen - Subroutinen f.\$use ($use) dyn. aufbauen</b><br>";
if ($use ne "" && $zug == 4)
{$a_debug.=".\$use($use) vorhanden - Aktionsauswahl:<br>";
    # -------- Aktionen in Datenbanken je nach $act ------- #
   my $db_name = substr($use, 2);
   if ($act eq "n")
      {
      put undef ,"$db_name";
      $act = "n";   # zurücksetzen, damit Form geleert wird
      # $act = "c" if $db_name eq "$db1";
      $a_actiontext = "Datensatz hinzugefügt...";
      $a_actionalert = "alert('Datensatz gespeichert !');";
      $a_debug.=".. put (in db $db_name) ausgeführt<br>";
      }elsif ($act eq "c" && $dsn ne "")
      {
      mod "Id==!$dsn", undef, "$db_name";
      $act = "n";    # zurücksetzen, damit Form geleert wird
      $a_actiontext = "Datensatz geändert...";
      $a_actionalert = "alert('Datensatz geändert !');";
      $a_debug.=".. chg (in db $db_name) ausgeführt<br>";
      }elsif ($act eq "d" && $dsn ne "")
      {
      del "Id==!$dsn", "$db_name";
      $act = "n";  # zurücksetzen, damit Form geleert wird
      # $act = "c" if $db_name eq "$db1";
      $a_actiontext = "Datensatz gelöscht...";
      $a_actionalert = "alert('Datensatz gelöscht !');";
      $a_debug.=".. del (in db $db_name) ausgeführt<br>";
      }
}elsif ($use ne "" && $act eq "r")  # "Eingangszweig" f. Registrierungsaktionen