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

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

	my($kk,$opp) = DoFn("select person.kunde,stundenliste.ziel from person,stundenliste where person.id=stundenliste.person and stundenliste.id=$id");
	my $pp = edit_personen($kk,1+4,"Ziel ('-'=AL+perso)");
	return undef unless defined($pp);

	if($pp eq "-") {
		return 0 unless defined $opp;
		$pp = "NULL";
	} else {
		return 0 if defined $opp and $pp == $opp;

		my($kunde_id, $kunde_name) = DoFn <<_;
			SELECT kunde.id, kunde.name
			FROM   kunde, person
			WHERE  person.kunde = kunde.id
			   AND person.id = $pp
_
		warnung "Diese Person gehört zu einem anderen Kunden (#$kunde_id:$kunde_name)!"
			if $kunde_id != $kk;
	}

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