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

sub delete_recheinheit($) {
	my($id) = @_;

	my($sid,$start,$name) = DoFn("select rechstep,start,name from recheinheit where id=$id");
	return problem "Der erste Eintrag kann nicht gelöscht werden" unless $start;

	log_update("recheinheit","id",$id,undef,"name","-",$name,$id);
	log_update("rechstep","id",$sid,undef,"recheinheit","name","-",undef,$id,$name);

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