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_ktarif_dienst($;$) {
	my($tari,$kn) = @_;
	my($id,$odien) = DoFn("select kunde,dienst from tarifkunde where id = $tari");

    my $dien = edit_dienste(1,"");
	return undef unless defined $dien;

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

	if($id > 0) {
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id = $id");
	}
}
1;
