use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn);
use Fehler qw(problem);
use Loader qw(list_person);

sub list_leitung_endpunkt($$) {
	my ( $endpunkt, $id ) = @_;
	return problem qq(Ich kenne nur A- und B-, keine "$endpunkt"-Endpunkte.)
	  if $endpunkt !~ /^[AB]\z/i;
	return problem qq("$id" ist nicht numerisch.) if $id =~ /\D/;
	my ($person) = DoFn "SELECT \l${endpunkt}_ende FROM leitung WHERE id = $id"
	  or return "Leitung #$id nicht in der Datenbank gefunden.";
	return problem
"Witzbold! Wo kein $endpunkt-Ende eingetragen ist, kann ich auch keines anzeigen."
	  unless $person;
	list_person $person;
}

1;
