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

sub set_ipnr_description($;$) {
	my ( $idi, $kn ) = @_;
	content ( my $kk = line_in 'Zusatzinfo: ' ) or return;

	log_update( 'ipkunde', 'id', $idi, undef, 'infotext', undef,
		def_or_minus(DoFn("select infotext from ipkunde where id=$idi")));
	Do("update ipkunde set infotext=${\qquote $kk,1} where id=$idi");
}

1;
