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_tarifacct_ddienst($$;$) {
	my($tid,$id,$kn) = @_;
    my $ksel;
    if($id) {
        $ksel="kunde = $id";
    } else {
        $ksel="kunde IS NULL";
        $id=0;
    }
	my $ddien = edit_dienste(1+4,"");
	return undef unless defined $ddien;
	$ddien = "NULL" if $ddien eq "-";
	my $odien = DoFn("select ddienst from tarifacct where id=$tid and $ksel");

	log_update("tarifacct","kunde",$id,"id",$tid,undef,"ddienst",undef,
		(defined $odien) ? name_dienst($odien) : "-");
	Do("update tarifacct set ddienst=$ddien where id=$tid and $ksel");

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