=head4 set_perso_ueberstundenlimit

C<set_perso_ueberstundenlimit( Person [Prompt] )>

Stellt die Obergrenze für die Zahl der Überstunden ein.

=cut

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

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

	my $zeit = select_date(2|64|26,"Limit",undef,"-" => "kein Limit");
	return undef unless defined $zeit;
	$zeit = "NULL" if $zeit eq "-";

	log_update("perso","person",$id,undef,"Überstundenlimit/gesamt",undef,
		iso_intervall(DoFn("select ueberstundenlimit from perso where person=$id"),4+8));
	Do("update perso set ueberstundenlimit=$zeit where person=$id");
	1;
}
1;
