=head4 set_perso_urlaub

C<set_perso_urlaub( Person [Prompt] )>

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

=cut

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

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

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

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