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

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

	my $dien = select_descr("mailart",1,"","","!hide");
	return undef unless defined $dien;

	log_update("person","id",$pers,undef,"prefcall",undef,
		get_descr("mailart",DoFn("select prefcall from person where id=$pers"),1));
	Do("update person set prefcall=$dien where id=$pers");
}
1;
