=head4 set_perso_personr

C<set_perso_personr( Person [Prompt] )>

Setzt die Personalnummer

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;

use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn);

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

	my $nr = line_in "Nummer: ";
	return undef unless defined $nr;
	return undef unless $nr =~ /^\d+$/;

	log_update("perso","person",$id,undef,"personr",undef,
		DoFn("select personr from perso where person=$id"));
	Do("update perso set personr=$nr where person=$id");
	1;
}

1;
