=head2 set_perso_jahresurlaub

C<set_perso_jahresurlaub( Person [Prompt] )>

Stellt ein, wie lang jemand pro Jahr Urlaub hat (8-Stunden-Tage).

=cut

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

use Dbase::Help qw(Do DoFn);
use Loader qw(line_in log_update);

sub set_perso_jahresurlaub($;$) {
	my($id,$kn) = @_;
	my($ozeit) = DoFn("select jahresurlaub from perso where person=$id");

	my $zeit = line_in "Jahresurlaub(Tage): ";
	return undef if $zeit eq "";
	$zeit = int($zeit*3600*24);
	$ozeit = $ozeit ? sprintf("%.2f",$ozeit/24/3600) : "-";

	log_update("perso","person",$id,undef,"jahresurlaub",undef,$ozeit);
	Do("update perso set jahresurlaub=$zeit where person=$id");
	1;
}

1;
