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

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

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