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

sub delete_wartungsvertrag_zuordnung($$;$) {
	my ( $typ, $id, $kn ) = @_;

	my($wvid) = DoFn "select wartungsvertrag FROM wartungsvertrag_$typ WHERE id = $id";

	log_update "wartungsvertrag_$typ" => wartungsvertrag => $wvid, undef, 'id','-', undef, $id;
	log_update "wartungsvertrag" => id => $wvid, undef, "wartungsvertrag_$typ", '-', undef, $id;
	Do "DELETE FROM wartungsvertrag_$typ WHERE id = $id";
}

1;
