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

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

	log_update("tarif","id",$tari,undef,"vinfo");
	Do("update tarif set varinfo=${\qquote $name,1} where id=$tari");
}
1;
