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 def_or_minus);

sub set_domain_info($;$) {
	my($idi,$kn) = @_;
	my($id,$oidx) = DoFn("select kunde,infotext from domainkunde where id=$idi");
	content ( my $kk = line_in "Text: " ) or return;

	log_update("domainkunde","id",$idi,undef,"info",undef,def_or_minus($oidx));
	Do("update domainkunde set infotext=${\qquote $kk,1} where id=$idi");

	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id") if $id > 0;
}
1;
