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

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

	my($kid,$dienst) = DoFn("select kunde,dienst from rechstep where id=$id");
	$kid=0 if not defined $kid;

	log_update("rechstep","id",$id,undef,"-");
	log_update("kunde","id",$id,undef,"rechstep","dienst","-",undef,$id,
		name_dienst($dienst));

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