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

sub set_queue_bearbeiter($;$) {
	my($id,$kn) = @_;

	my $pers = edit_personen(1, 1+4, "$kn Default-Bearbeiter");
	return undef unless defined $pers;
	$pers="NULL" if $pers eq "-";

	log_update("queue","id",$id,undef,"defbearb",undef,
		DoFn("select defbearb from queue where id=$id"));
	Do("update queue set defbearb=$pers where id=$id");
	$pers;
}
1;
