use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(log_update line_in check_perm editor valid_fnbatch);
use Dbase::Help qw(Do DoFn quote);
use Fehler qw(problem);

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

	return undef unless check_perm("verwaltung");
	return undef unless valid_fnbatch($id,8);

    my $data = DoFn("select daten from fnbatch where id=$id");

	return problem "Daten von Batch $id nicht vorhanden?"
		unless defined $data;

	$data = editor($data, "Editor Batch #$id ...");
	return undef unless defined $data;

	log_update("fnbatch","id",$id,undef,"daten");
	Do("update fnbatch set daten='${\quote $data}' where id=$id");

	$id;
}
1;
