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);
use Loader qw(line_in log_update);

sub set_stundenliste_info($;$) {
	my($pers,$kn) = @_;
	content ( my $info = line_in "Text: " ) or return;

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