=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(flush_std_cache);

my $artHotline;

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

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

	$artHotline = DoFn("select id from stunden_art where name='Hotline'")
		unless defined $artHotline;

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

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

}
1;
