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

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

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