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

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

	content ( my $kk = line_in "Text: " ) or return;

	log_update("descr","typ",$desc,"descr",$id,undef,"infotext",undef,def_or_minus(DoFn("select infotext from descr where typ=$desc and descr=$id")));
	Do("update descr set infotext=${\qquote $kk,1} where typ=$desc and descr=$id");
}
1;
