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);

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

	content ( my $step = line_in "Schritt Nr: " ) or return;
	return problem "'$step' ist keine Zahl" unless $step =~ /^\d+$/;
	return $step unless defined $id;
	
	log_update("rechstep","id",$id,undef,"step",undef,
		DoFn("select step from rechstep where id=$id"));
	Do("update rechstep set step=$step where id=$id");
}
1;
