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

sub set_person_name($;$$) {
	my($pers,$kn,$flag) = @_;
	$flag=0 unless defined $flag;

	content ( my $name = line_in "Name       : " ) or return;
	warnung 'Und das soll wirklich der Realname und nicht doch eher der Username sein?!'
		if $name =~ /^\w+$/;

	log_update("person","id",$pers,undef,"name",undef,
		def_or_minus(DoFn("select name from person where id=$pers")));
	Do("update person set name=${\qquote $name,1} where id=$pers");
}

1;
