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

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

	my($zr,$oletzt) = DoFn("select zeitraum,zuletzt from stundenliste where id=$id");
	my $datum = select_date(1|($zr?0:4),"Datum");
	return unless defined $datum;

	log_update("stundenliste","id",$id,undef,"zuletzt",undef,
		scalar isodate $oletzt);
	Do("update stundenliste set zuletzt=$datum where id=$id");
}
1;
