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

use Dbase::Globals qw(get_descr);
use Dbase::Help qw(DoSelect);
use Loader qw(line_printer);
use noris::Table;

sub list_handles($;$) {
	my($pers,$kn) = @_;

	( my $t = noris::Table->new )->titel(
		{ name => 'NIC',    format => '%-10s'  },
		{ name => 'Handle', format => ' %-20s' },
		{ name => 'Status', format => ' %-16s' },
		{ name => 'Ticket', format => ' %s'    },
	);

	my $hdr;
	my $res = DoSelect {
		my($nic,$handle,$status,$ticket,$tstatus) = @_;

		$status = get_descr("handlestatus",$status);
		if(defined $ticket) {
			$ticket = "#$ticket:".get_descr("tickets",$tstatus);
		} else {
			$ticket = "";
		}
		$handle = "?" unless $handle;

		goto out unless
		$t->daten( get_descr( "nic", $nic ), $handle, $status, $ticket );
	} "select nic.nic,nic.handle,nic.status,nic.ticket,ticket.status from nic left join ticket on ticket.id = nic.ticket where person=$pers"
		or print "(leer)\n";
out:

	$t->drucken();

	$res;
}

1;
