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

sub list_ticket_ids($;$) {
	my($tid,$kn) = @_;
	line_printer;

	my $head = 0;
	my $res = DoSelect {
		my($id,$seq) = @_;
		$seq=0 unless $seq;
		print $Db::pr_fh <<END unless $head++;
Tx MsgID
END
		goto out unless
		printf $Db::pr_fh "%2d %s\n", $seq,$id;
	} "select id,seq from ticketid where ticket = $tid order by seq,id"
		or print "(leer)\n";
out:
	$res;
}
1;

