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

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

	my $name = edit_tarifnamen(1+4,$kn);
	return undef unless defined $name;
	$name = "NULL" if $name eq "-";
	
	log_update("person","id",$idi,undef,"tarif",undef,
		DoFn("select tarifname from person where id=$idi"));
	Do("update person set tarifname=$name where id=$idi");
}
1;
