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

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

	my($kunde)=DoFn("select kunde from reseller where id=$id");
	log_update("reseller","kunde",$kunde,undef,"id","-",undef,$id);
	Do("delete from reseller where id=$id");
	1;
}
1;
