use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(flag_names content);
use Loader qw(select_flags log_update line_in);
use Fehler qw(problem);

sub set_tarifklasse_kuendigung($;$) {
	my($tkid,$kn) = @_;

	my $kf = DoFn("select kuendigung from tarifklasse where id=$tkid");

	content ( my $nkf = line_in('Kündigungsfrist (in Tagen; optional): ') ) or return "";
	if($nkf eq "-") {
		$nkf = "NULL";
	} else {
		return problem "'$nkf' ist keine Zahl" if $nkf !~ /^\d+$/;
	}
	
	log_update("tarifklasse","id",$tkid,undef,"kuendigung",undef,$kf);
	Do("update tarifklasse set kuendigung=$nkf where id=$tkid");
	$tkid;
}
1;
