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

use Dbase::Globals qw(mpersinfo name_kunde);

sub personenliste(@) {
	my @liste = (
		<<'_',
Kunde               Person
===============================================================================
_
		map sprintf(
			"#%4d:%-14s#%5d:%s\n",
			$_->[1], name_kunde( $_->[1] ),
			$_->[0], mpersinfo( $_->[0] )
		),
		@_
	);
	if (wantarray) { @liste }
	else { join '', @liste }
}

1;
