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

sub delete_umrechnung($;$) {
	my($dien,$kn) = @_;

	log_update("tarifeq","dienst",$dien,undef,"-");
	Do("delete from tarifeq where dienst=$dien");
	undef;
}
1;
