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

sub add_resturlaub() {
	DoSelect {
		my($pers,$ru) = @_;
		log_update("perso","person",$pers,undef,"resturlaub",undef,$ru);
		Do("update perso set resturlaub=0 where person=$pers");
	} "select person,resturlaub from perso where resturlaub > 0";
	print "Resturlaub gelöscht.\n";
}
1;
