use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in select_descr log_update valid_handle);
use Dbase::Help qw(quote DoFn Do);
use Dbase::Globals qw(get_descr);
use Fehler qw(problem);

sub set_handle_status($$;$) {
	my($pers,$nic,$kn) = @_; 

	return unless valid_handle($pers,$nic,1,$kn);
	
	my $ostat = DoFn("select status from nic where person = $pers and nic = $nic");
	return problem "Für diesen NIC existiert hier kein Handle."
		unless defined $ostat;

	my $stat = select_descr "handlestatus",0,undef,"Status","!hide";
	return undef unless defined $stat;

	log_update("nic","person",$pers,"nic",$nic,undef,"status",undef,get_descr("handlestatus",$ostat,1));
	Do("update nic set status=$stat where person=$pers and nic=$nic");
	1;
}
1;
