=head4 set_perso_letzter

C<set_perso_letzter( Person [Prompt] )>

Stellt das Datum ein, ab dem Benutzer ihre Stunden ändern dürfen.

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(select_date log_update);
use Dbase::Help qw(isodate Do DoFn isotime);

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

	my $zeit = select_date(4,"berechnet bis");
	return undef unless defined $zeit;

	my($j,$m,$t) = isodate $zeit; $zeit = $j*100+$m;

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