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

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

	my $verz = line_in "Default-Priorität (0-99): ";
	return undef unless $verz =~ /^\d+$/ and $verz < 100;

	log_update("queue","id",$id,undef,"defprio",undef,
		DoFn("select defprio from queue where id=$id"));
	Do("update queue set defprio=$verz where id=$id");
}

1;
