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

use Dbase::Help qw(Do);

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

	return undef unless $pers;

	log_update(person => id => $pers, undef, "perso", undef,"*");
	Do("insert into perso set person=$pers");

	print "...done.\n";
	return $pers;
}

1;
