=head1 add_stundenliste

Fügt eine neue Stundenlisten-Benachrichtigung hinzu.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;

use Loader qw(edit_stundenliste log_update valid_person);
use Dbase::Globals qw(find_descr);
use Dbase::Help qw(Do DoTime isodate unixdate);

sub add_stundenliste($;$) {
	my($id,$kn) = @_;
	my $manf;
	{
		my($j,$m);
		($j,$m,undef) = isodate(DoTime);
		$manf = unixdate($j,$m,1);
	}

	return undef unless valid_person($id,1);

	my $sid = Do("insert into stundenliste set person=$id, delay=5, art=".find_descr("std_liste","kurz").", zuletzt=$manf");
	log_update("stundenliste","id",$sid,undef,"person","*",undef,$id);
	edit_stundenliste($sid,$id,$kn);
}

1;
