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

sub set_recheinheit_start($;$) {
	my($id,$kn) = @_;

	if($id) {
		my $ostart = DoFn("select start from recheinheit where id=$id");
		return problem "Der erste Wert kann nicht geändert werden" unless $ostart;
	}
	content ( my $start = line_in "Start bei: " ) or return;
	return problem "'$start' ist keine Zahl" unless $start =~ /^\d+(?:[,\.]\d+)?$/;
	$start =~ s/,/./; $start = rund($start*1000);
	return $start unless defined $id;
	
	log_update("recheinheit","id",$id,undef,"start",undef,
		sprintf("%3f",DoFn("select start from recheinheit where id=$id")/1000+0.5));
	Do("update recheinheit set start=$start where id=$id");
}
1;
