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

sub set_tarif_dienst($;$) {
	my($tari,$kn) = @_;

	my $dien = edit_dienste(1,"");
	return unless defined $dien;
	my $odien = DoFn("select dienst from tarif where id=$tari");

	log_update("tarif","id",$tari,undef,"dienst",
		(defined $odien) ? name_dienst($odien) : "-");
	Do("update tarif set dienst=$dien where id=$tari");
}
1;
