use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Fehler qw(problem);
use Dbase::Help qw(Do DoFn quote);

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

	my $name = line_in "Name       : "; return undef if $name eq "";
	return problem "Die Queue braucht aber einen Namen..."
		if $name eq "-";

	return problem "Sorry, existiert bereits...\n"
		if DoFn("select 1 from queue where name='${\quote lc $name}'");

	log_update("queue","id",$id,undef,"name",undef,
		DoFn("select name from queue where id=$id"));
	Do("update queue set name='${\quote lc $name}' where id=$id");
}
1;
