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

sub set_kunde_reseller($;$) {
	my($id,$kn) = @_;
	my($oreseller) = DoFn("select reseller from kunde where id=$id");
	return problem 'Dieser Kunde ist selbst Reseller.'
	  if DoFn "SELECT 1 FROM reseller WHERE kunde=$id";

	$kn .= " Reseller ist";
	my $akn = edit_kunden(1+4,$kn); return unless defined $akn;
	if($akn eq "-") {
		$akn = "NULL";
	} elsif(not DoFn("select 1 from reseller where kunde=$akn")) {
		print "Kunde #$akn ist kein Reseller\n";
		return undef;
	}
	log_update("kunde","id",$id,undef,"reseller",undef,$oreseller);
	Do("update kunde set reseller=$akn where id=$id");
}
1;
