use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Fehler qw(problem);
use Loader qw(log_update);

sub delete_messtyp($;$) {
	my ( $idi, $kn ) = @_;
    return problem 'Diese Messtyp ID gibt es nicht!'
      unless defined DoFn "SELECT id FROM mess_typ WHERE id = $idi";

	log_update mess_typ => id => $idi, undef, 'id','-', undef, $idi;
	Do "DELETE FROM mess_typ WHERE id = $idi";
}

1;
