=head4 set_perso_resturlaub

C<set_perso_resturlaub( Person [Prompt] )>

Stellt ein, wie lang jemand noch Resturlaub 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_resturlaub($;$) {
	my($id,$kn) = @_;
	my($ozeit) = DoFn("select resturlaub from perso where person=$id");

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

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