use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update line_add);
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content def_or_minus);

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

	my $ozusa = DoFn("select zusatzinfo from person where id=$pers");

	line_add($ozusa) if defined $ozusa;
	content ( my $zusa = line_in "Zusatzinfo : " ) or return;

	log_update("person","id",$pers,undef,"zusatzinfo",undef,def_or_minus($ozusa));
	Do("update person set zusatzinfo=${\qquote $zusa,1} where id=$pers");
}

1;
