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

sub set_person_vrf($;$) {
	my ( $idi, $kn ) = @_;

	defined( my $vrf = select_descr vrf => 4, '', 'VRF', '!hide' ) or return;
	$vrf = 'NULL' if $vrf eq '-';

	log_update person => id => $idi, undef, 'vrf',
		get_descr('vrf',DoFn("select vrf from person WHERE id=$idi"),1);
	Do "UPDATE person SET vrf=$vrf WHERE id=$idi";
}

1;
