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

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