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

sub set_acct_ziel($$;$) {
	my($hash,$seq,$kn) = @_;
	my($id,$oziel) = DoFn("select kunde from acct where `hash`=$hash and seq=$seq");

	my($desc) = DoFn("select dienst from acct where `hash`=$hash and seq=$seq");
	if($desc == 0 or not defined enum_descr($desc)) {
		if(is_dienst($desc,"nic")) {
			$desc = "acctinfo";
		} else {
			$desc = "ziel";
		}
	}
	my $dest = select_descr($desc,1+4,"","Ziel","!hide");
	return undef unless defined $dest;

	$dest = "NULL" if $dest eq "-";

	log_update("acct","hash",$hash,"seq",$seq,undef,"dest",undef,get_descr($desc,$oziel,1));
	Do("update acct set dest=$dest where `hash`=$hash and seq=$seq");

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