=head1 add_reseller

Wandelt einen normalen Kunden in einen Reseller.

Flags:

=over 4

=item 1

Nicht in den Editor gehen

=back

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Fehler qw(fehler ffehler);
use Loader qw(valid_kunde log_update set_reseller_name delete_reseller
		edit_reseller select_descr);
use Dbase::Help qw(Do);
use Dbase::Globals qw(find_descr find_reseller);

sub add_reseller($;$$) {
	my($kunde,$flag,$kn) = @_;
	return unless valid_kunde($kunde,1);

	my $ares = find_reseller($kunde);
	print "Achtung: Bisheriger Reseller: #$ares\n" if $ares;

	my $art = select_descr("reseller",0,undef,"Reseller-Typ","!hide");
	return undef unless defined $art;

	my $id = Do("insert into reseller set kunde=$kunde, art=$art");
	log_update("reseller","id",$id,undef,"kunde","*",undef,$kunde);

	ffehler {
		set_reseller_name($id) or fehler "kein Name angegeben";
	} sub {
		delete_reseller($id);
		$id = undef;
	};
	return undef unless $id;
	return edit_reseller($id,$kn,$kunde) unless $flag&1;
	$id;
}
1;
