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

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

	my $id = line_in "ID: "; return undef if $id eq "";
    $id = ord($id) if $id !~ /^\d$/ and length($id) == 1;
    return undef unless $id =~ /^\d+$/;
	if(get_descr($dname,$id)) {
		print "...bereits bekannt.\n";
		return undef;
	}

	$tx or content ( $tx = line_in "Text: " ) or return undef;
	if(find_descr($dname,$tx)) {
		print "...bereits bekannt.\n";
		return undef;
	}
	$tx =~ s/([\\'])/\\$1/g;
	log_update("descr","name",$desc,"descr",$id,undef,"*");
	Do("insert into descr set typ=$desc, descr=$id, bla=${\qquote $tx}");
	return edit_deskr($desc,$id,$kn);
}
1;
