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

	my $cnt = DoFn("SELECT count(*) FROM hardware_ip WHERE hardware = $idi");
    return problem "Löschen eines Hardwareobjekts mit assoziierter IP nicht möglich!" if $cnt;

	my ($kunde_id) = DoFn "SELECT kunde FROM hardware WHERE id = $idi";
	log_update hardware => kunde => $kunde_id, undef, 'id','-', undef, $idi;
	Do "DELETE FROM wartungsvertrag_hardware WHERE hardware = $idi";
	Do "DELETE FROM hardware WHERE id = $idi";
	if($kunde_id > 0) {
		log_update kunde => id => $kunde_id, undef, "hardware","-",undef,$idi;
		Do "UPDATE kunde SET geaendert=UNIX_TIMESTAMP(NOW()) WHERE id=$kunde_id"
	}
}

1;
