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

sub delete_fnbatches($;$) {
	my($id,$kn) = @_;

	if($id) {
		$id = "and id = $id";
	} else {
		$id = "";
	}
	my $num = DoSelect {
		my($id) = @_;
		delete_fnbatch($id,$kn,1);
	} "select id from fnbatch where ( status = 3 or status = 4 ) $id";

	if($num == 0) {
		print "Keine beendeten Jobs gefunden.\n";
	} elsif($num == 1) {
		print "1 Job gelöscht.\n";
	} else {
		print "$num Jobs gelöscht.\n";
	}
	return undef if $id ne "";
	$num;
}
1;
