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

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

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

	log_update("reseller","id",$id,undef,"art",undef,
		get_descr("reseller",DoFn("select art from reseller where id=$id"),1));
	Do("update reseller set art=$art where id=$id");

	$art;
}
1;
