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

use Loader qw(line_in);

sub delete_perso_monat($$;$) {
	my($monat,$pers,$kn) = @_;

	return $monat unless $pers =~ /^\d+$/;
	return $monat unless $monat =~ /^\d+$/;
	return $monat if line_in("Erst das geheime Passwort: ",1) ne "geheim";

	if($pers) {
		$pers="person=$pers";
	} else {
		$pers="(person = 0 OR person is NULL)";
	}
	Do("delete from persomonat where $pers and monat = $monat");
	return undef;
}
1;
