=head4 set_perso_vorgesetzter

C<set_perso_vorgesetzter( Person [Prompt] )>

Stellt den Vorgesetzten einer Person ein.

=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_perso_vorgesetzter($;$) {
	my($id,$kn) = @_;

	my($kk) = DoFn("select kunde from person where id=$id");
	my($opers) = DoFn("select vorgesetzter from perso where person=$id");
	my $pers = edit_personen($kk,1+4,$kn);
	return undef unless defined $pers;
	$pers="NULL" if $pers eq "-";

	log_update("perso","person",$id,undef,"vorgesetzter","vorgesetzter",undef,
		$opers,kkpersinfo($opers,2));
	Do("update perso set vorgesetzter=$pers where person=$id");
	1;
}
1;
