use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_printer valid_fnbatch);
use Dbase::Help qw(DoFn);

sub list_fnbatch_text($;$) {
	my($idi,$kn) = @_;

	return undef unless valid_fnbatch($idi,1);

	no warnings 'once';
	line_printer(1|2);
	print $Db::pr_fh DoFn("select daten from fnbatch where id=$idi");
}
1;
