use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do);
use Loader qw(log_update edit_person);

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

	my $pers = Do("insert into person set kunde=$id");
	log_update("person","id",$pers,undef,"*");
	log_update("kunde","id",$id,undef,"person",'*',undef,$pers);
	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id = $id");
	return edit_person($pers,$id,$kn);
}

1;
