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

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

	my($kname,$rname) = DoFn("select reseller.name,kunde.name from reseller,kunde where reseller.kunde=kunde.id and reseller.id=$id");

	$rname = $kname if $kname;

	my $name = line_in "Name [$rname]: "; return undef unless defined $name;
	$name=$rname if $name eq "" or $name eq "-";

	log_update("reseller","id",$id,undef,"name",undef,$kname);
	Do("update reseller set name=${\qquote $name} where id=$id");

	1;
}
1;
