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_dienst_info($;$) {
	my($id,$kn) = @_;

	content ( my $info = line_in "Infotext   : " ) or return undef;

	log_update("dienst","id",$id,undef,"info",undef,
		DoFn("select info from dienst where id=$id"));
	Do("update dienst set info=${\qquote $info,1} where id=$id");
}

1;
