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_deskr_idchar($$;$) {
	my($desc,$id,$kn) = @_;
	my $oidchar = DoFn "select idchar from descr where typ=$desc and descr=$id";

	my $kk = line_in "idchar-Zeichen: "; return undef if $kk eq "";
	my $idx;
	if($kk eq "-") {
		$kk=undef;
	} elsif(length($kk) != 1) {
		print "Ich brauche genau ein Zeichen...\n";
		return;
	} elsif(DoFn "select count(*) from descr where typ=$desc and idchar=${\qquote $kk}") {
		print "...schon bekannt\n";
		return;
	}
	log_update("descr","typ",$desc,"descr",$id,undef,"idchar",undef,$oidchar);
	Do("update descr set idchar=${\qquote $kk} where typ=$desc and descr=$id");
}
1;
