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

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

	my $delay = line_in "Verzögerung(Tage) :";
	return undef if not defined $delay or $delay !~ /^\d+$/;
	log_update("stundenliste","id",$id,undef,"delay",undef,
		DoFn("select delay from stundenliste where id=$id"));
	Do("update stundenliste set delay=$delay where id=$id");
}
1;
