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

sub delete_leitung($;$) {
	my ( $idi, $kn ) = @_;
	my ($kunde_id) = DoFn "SELECT kunde FROM leitung WHERE id = $idi";

	log_update 'leitung' => kunde => $kunde_id, undef, 'id','-', undef, $idi;
	Do "DELETE FROM wartungsvertrag_leitung WHERE leitung = $idi";
	Do "DELETE FROM leitung WHERE id = $idi";

	if($kunde_id > 0) {
		log_update 'kunde' => id => $kunde_id, undef, 'leitung','-', undef, $idi;
		Do "UPDATE kunde SET geaendert = UNIX_TIMESTAMP(NOW()) WHERE id = $kunde_id"
	}
}

1;
