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

sub set_person_gebjahr($;$) {
	my($pers,$kn) = @_;

	my $gebjahr = line_in "Geb.Jahr   : ";
	return undef if $gebjahr eq "";
	if($gebjahr eq "-") {
		$gebjahr = "NULL";
	} else {
		return problem "'$gebjahr' ist keine Zahl" unless $gebjahr =~ /^\d+$/;
		$gebjahr += 1900 if $gebjahr < 100;
	}
	log_update("person","id",$pers,undef,"gebjahr",undef,
		DoFn("select gebjahr from person where id=$pers"));
	Do("update person set gebjahr=$gebjahr where id=$pers");
}
1;
