use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Help qw(Do qquote);

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

	my $inf = "";
	while(1) {
		my $inf1 = line_in(($inf eq "") ? "Beschreibung : " : "             : ");
		last if $inf1 =~ /^\s*$/;
		$inf .= "|" if $inf ne "";
		$inf .= $inf1;
		if($inf1 eq "-") {
			last if $inf eq "-";
			return undef;
		}
	}
	return if $inf eq "";

	log_update("person","id",$pers,undef,"descr");
	Do("update person set infotext=${\qquote $inf,1} where id=$pers");
}
1;
