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

sub delete_dienst($) {
	my($q) = @_;

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