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

sub set_tarifacct_ziel($$;$) {
	my($tid,$id,$kn) = @_;
    my $ksel;
    if($id) {
        $ksel="kunde = $id";
    } else {
        $ksel="kunde IS NULL";
        $id=0;
    }
	my($desc) = DoFn("select dienst from tarifacct where id = $tid");
	if($desc == 0 or enum_descr($desc) eq "") {
		if(is_dienst($desc,"nic")) {
			$desc = "acctinfo";
		} else {
			$desc = "ziel";
		}
	}
	my $ziel = select_descr($desc,1+4,"","Ziel","!hide");
	return undef unless defined $ziel;
	$ziel = "NULL" if $ziel eq "-";

	log_update("tarifacct","kunde",$id,"id",$tid,undef,"ziel",
		get_descr($desc,DoFn("select ziel from tarifacct where id=$tid and $ksel"),1));
	Do("update tarifacct set ziel=$ziel where id=$tid and $ksel");

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