use utf8;
use strict;
use warnings; no warnings "redefine";
use Loader qw(ipnr_records line_printer);

sub ipnr_prints($) {
	my($id) = @_;

	my $res = ipnr_records($id);
	if(defined $res) {
		no warnings 'once';
		line_printer;
		$res =~ s/\A.*?\n\n/\n/s;
		print $Db::pr_fh $res;
	} else {
		print "... no data?\n";
	}
}
1;
