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

sub set_umrechnung_info($;$) {
	my($dien,$kn) = @_;

	content ( my $name = line_in "Info: " ) or return;

	log_update("tarifeq","dienst",$dien,undef,"infotext",undef,
		def_or_minus(DoFn("select infotext from tarifeq where dienst=$dien")));
	Do("update tarifeq set infotext=${\qquote $name,1} where dienst=$dien");
}
1;
