=head3 delete_stunde

C<delete_stunde( ID [Prompt] )>

Löscht einen Stundeneintrag.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(log_update update_hotline_cache);
use Dbase::Help qw(Do DoFn DoTrans);
use Dbase::Globals qw(find_descr flush_std_cache is_hotline);

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

	my($pers,$beg,$dau,$art) = DoFn("select person,beginn,dauer,art from stunden where id=$id");

	DoTrans {
		log_update("stunden","person",$pers,undef,"id","-",undef,$id);
		flush_std_cache($pers,$beg,$dau);
		update_hotline_cache( $pers, $beg, $dau ) if is_hotline($art);

		Do("delete from stunden where id=$id");
	};

}
1;
