use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update edit_personen);
use Dbase::Help qw(Do DoFn);
use Fehler qw(problem);
use Dbase::Globals qw(find_descr kkpersinfo);

sub set_stundenliste_person($;$) {
	my($id,$kn) = @_; 

	my($kk,$opp,$art) = DoFn("select person.kunde,stundenliste.person,stundenliste.art from person,stundenliste where person.id=stundenliste.person and stundenliste.id=$id");
	my $pp = edit_personen($kk,1,"für Person");
	return undef unless defined($pp);
	$pp = "NULL" if $pp eq "-";
	return 0 if $pp == $opp;

    return problem "Es existiert bereits ein Eintrag für Endabrechnung!"
		if $art == find_descr("std_liste","ende") and
			DoFn("select count(*) from stundenliste where person=$pp and art=$art");

	log_update("stundenliste","id",$id,undef,"person","person",undef,
		$opp,kkpersinfo($opp,2));
	Do("update stundenliste set person = $pp where id = $id");
}
1;
