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

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

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

	log_update("acct","hash",$hash,"seq",$seq,undef,"dienst",undef,(defined $odien) ? name_dienst($odien) : "-");
	Do("update acct set dienst=$dien where `hash`=$hash and `seq`=$seq");

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