=head5 set_person_stunde_person

C<set_person_stunde_person( ID [Prompt] )>

Ändert die einem Stundeneintrag zugeordnete Person.

=cut

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

sub set_person_stunde_person($;$) {
	my($idi,$kn) = @_;

	my $okk = DoFn("select person from stunden where id=$idi");
	my $kk = edit_personen(DoFn("select kunde from stunden where id=$idi")||1,
	                       1+4,$kn);
	return undef unless defined($kk);
	return 0 if $kk == $okk;

	log_update("stunden","id",$idi,undef,"person","person",undef,
		$okk,kkpersinfo($okk,2));
	Do("update stunden set person=$kk where id=$idi");
	$kk;
}
1;
