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

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

	my($pers) = DoFn("select person from stundenliste where id=$id");
	log_update("stundenliste","person",$pers,undef,"id","-",undef,$id);
	Do("delete from stundenliste where id=$id");
	1;
}
1;
