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

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

	my $quelle = select_descr("quelle",1+4,"","","!hide");
	return undef unless defined $quelle;
	$quelle = "NULL" if $quelle eq "-";

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

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