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

sub set_leitung_infotext($;$) {
	my ( $idi, $kn ) = @_;
	content( my $name = line_in('Infotext: ') ) or return;
	log_update(
		leitung =>
		  id => $idi,
		undef, infotext => DoFn("SELECT infotext FROM leitung WHERE id=$idi")
	);
	my $qname = $name eq '-' ? 'NULL' : qquote $name;
	Do("UPDATE leitung SET infotext=$qname WHERE id=$idi");
}

1;
