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

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

	content ( my $info = line_in "Infotext: " ) or return;
	$info = '' if $info eq '-'; # s. RT#459199
	return $info unless defined $id;
	
	log_update("recheinheit","id",$id,undef,"info",undef,
		DoFn("select info from recheinheit where id=$id"));
	Do("UPDATE recheinheit SET info = ${\qquote($info)} WHERE id = $id");
}
1;
