use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in current_user log_update);
use Dbase::Help qw(Do DoSelect);
use RT::database::manipulate qw(reopen);

sub delete_handles($;$) {
	my($pers,$kn) = @_;
	my $resp = line_in "Sollen wirklich ALLE Handles gelöscht werden? ";
	return if $resp eq "";
	if($resp !~ /^j/i) {
		print "Abgebrochen.\n";
		return;
	}

	log_update("nic","person",$pers,undef,"-");

	DoSelect {
		my($id,$status) = @_;
		reopen($id,current_user()) if $status == 2;
	} "select nic.ticket,ticket.status from nic,ticket where ticket.id = nic.ticket and nic.person = $pers";

	DoSelect {
		my($nic)=@_;
		log_update("nic","person",$pers,undef,"nic","-",undef,get_descr("nic",$nic));
	} "select nic from nic where person=$pers";

	Do("delete from nic where person=$pers");
	return;
}
1;
