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

sub set_ktarif_info($;$) {
	my($tari,$kn) = @_;

	my $name = "";
	while(1) {
		my $name1 = line_in(($name eq "") ? "Info: " : "    : ");
		last if $name1 =~ /^\s*$/;
		$name .= "|" if $name ne "";
		$name .= $name1;
		if($name1 eq "-") {
			last if $name eq "-";
			return undef;
		}
	}

	log_update("tarifkunde","id",$tari,undef,"info");
	Do("update tarifkunde set infotext=${\qquote $name,1} where id=$tari");

	my($id) = DoFn("select kunde from tarifkunde where id=$tari");
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
}
1;
