sub Priority_eintragen {
       print "Neue Priority $_[0] \n" if defined $opt_v;
       $dbh->do("insert into Priority(Priority) values (?) ON DUPLICATE KEY UPDATE Priority = ?;",undef,($_[0]) x 2); Fehler("Fehler Neue Priorität: $DBI::errstr", 0) if $DBI::err;
}