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

	my $lz = DoFn("select laufzeit from tarifklasse where id=$tkid");

	content ( my $nlz = line_in('Laufzeit (in Monaten; optional): ') ) or return "";
	if($nlz eq "-") {
		$nlz = "NULL";
	} else {
		return problem "'$nlz' ist keine Zahl" if $nlz !~ /^\d+$/;
	}
	
	log_update("tarifklasse","id",$tkid,undef,"laufzeit",undef,$lz);
	Do("update tarifklasse set laufzeit=$nlz where id=$tkid");
	$tkid;
}
1;
