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

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

	content ( my $verz = line_in "Default-Tage bis Fälligkeit (Tage): " )
		or return undef;
	if($verz eq "-") {
		$verz = 0;
	} else {
		return undef unless $verz =~ /^\d+$/;
	}

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