use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Globals qw(find_descr get_descr %descr_name %descr_id);
use Dbase::Help qw(Do DoFn qquote);

sub set_deskr_name($$;$) {
	my($desc,$id,$kn) = @_;
	my $dname = DoFn "select name from descr_typ where id=$desc";
	my $oname = get_descr($dname,$id);

	my $kk = line_in "Name: "; return undef if $kk eq "";
	my $idx;
	if($kk eq "-") {
		print "Das geht nicht...\n";
	} elsif(find_descr($dname,$kk)) {
		print "...schon bekannt\n";
	} else {
		log_update("descr","typ",$desc,"descr",$id,undef,"bla",undef,$oname);
		Do("update descr set bla=${\qquote $kk} where typ=$desc and descr=$id");
		delete $descr_id{$dname}{$id};
		delete $descr_name{$dname}{$oname};
	}
}
1;
