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_messstelle($;$) {
	my ( $idi, $kn ) = @_;

    return problem 'Falls diese Funktionalität erwünscht ist! Dann bei EW melden!';

    return problem 'Diese Messstelle ID gibt es nicht!'
      unless defined DoFn "SELECT id FROM mess_typ WHERE id = $idi";

    return problem 'Es ist ein Messgerät mit der Messstelle assoziiert!'
      if DoFn "SELECT count(*) FROM mess_geraet WHERE mess_stelle = $idi";

    return problem 'Es sind noch Verbraucher mit der Messstelle assoziiert!'
      if DoFn "SELECT count(*) FROM mess_verbraucher WHERE mess_stelle = $idi";

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

1;
