sub Knoten_eintragen {
        print "Neuer Knoten $_[0] \n" if defined $opt_v;
        $dbh->do("insert into Knoten(Name, TID, new) values ('" . $_[0] . "', 0, 1);"); Fehler("Fehler Neuer Knoten: $DBI::errstr", 0) if $DBI::err;
}

sub Priority_eintragen {
        print "Neue Priority $_[0] \n" if defined $opt_v;
        $dbh->do("insert into Priority(Priority) values ('" . $_[0] . "');"); Fehler("Fehler Neue Priorität: $DBI::errstr", 0) if $DBI::err;
}

sub Fehler_eintragen {
      print "Neuer Fehler $_[0] \n" if defined $opt_v;
      $dbh->do("insert into Fehler(Fehler) values (?);", undef, $_[0]); Fehler("Fehler Neuer Fehler: $DBI::errstr", 0) if $DBI::err;
}

#sub Fehler_eintragen {
#        print "Neuer Fehler $_[0] \n" if defined $opt_v;
#        $dbh->do("insert into Fehler(Fehler) values ('" . $_[0] . "');"); Fehler("Fehler Neuer Fehler: $DBI::errstr", 0) if $DBI::err;
#}

sub Karte_eintragen {
        print "Neuer Kartentyp $_[0] \n" if defined $opt_v;
        $dbh->do("insert into Karten(Typ) values ('" . $_[0] . "');"); Fehler("Fehler Neuer Kartentyp: $DBI::errstr", 0) if $DBI::err;
}

sub Datum_eintragen {
        print "Neues Datum $_[0] \n" if defined $opt_v;
        $dbh->do("insert into Datum(Datum) values ('" . $_[0] . "');"); Fehler("Fehler Neues Datum: $DBI::errstr", 0) if $DBI::err;
}