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

sub list_ticket_addrs($;$$) {
	my($tid,$kn,$fh) = @_;
	if(defined $fh) {
	} else {
		line_printer;
		no warnings 'once';
		$fh = $Db::pr_fh;
	}

	my $hdr = 0;
	my $res = DoSelect {
		my($person,$knd) = @_;
		print $fh <<END unless $hdr++;
Kunde Adresse
END
		goto out unless
		printf $fh "%5d %s\n", $knd, persinfo($person);
	} <<_;
	SELECT   ticketadr.person, person.kunde
	FROM     ticketadr, person
	WHERE    ticketadr.ticket = $tid
	     AND person.id = ticketadr.person
	ORDER BY person.kunde, person.id
_
	my $res2 = DoSelect {
		my($adr,$extern) = @_;
		print $fh <<END unless $hdr++;
      Adresse
END
		goto out unless
		printf $fh "    - #   - %s\n", $adr;
	} "SELECT email FROM ticketadr WHERE ticket = $tid";

	print "(leer)\n" if not $res and $res2 eq "empty" and -t;

out:
	$res+$res2;
}
1;

