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

sub set_domreg_dienst($;$) {
	my($id,$kn) = @_;

	my $dienst = edit_dienste(1,$kn);
	return undef unless defined $dienst;

	log_update("domreg","id",$id,undef,"dienst",undef,
		name_dienst(DoFn("select dienst from domreg where id=$id")));
	Do("update domreg set dienst=$dienst where id=$id");
}
1;
