use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_printer valid_nic);
use Dbase::Help qw(DoSelect);
use Dbase::Globals qw(flag_names get_descr);

sub list_registrare($;$) {
	my($nic,$kn) = @_;
	line_printer;

	return unless valid_nic($nic);

	my $hdr;
	my $res = DoSelect {
		my($id,$nic,$key,$email,$flags) = @_;
		$key=$email unless $key;
		$key="-" unless defined $key;

		print $Db::pr_fh <<END unless $hdr++;
 ID Registrar  Key/Mail                  Flags
END
		printf $Db::pr_fh "%3d %-10.10s %-25.25s %s\n",$id,get_descr("nic",$nic), $key,scalar flag_names($flags,"reg_flag");
	} "select id,nic,keyid,email,flags from registrar where nic=$nic order by id"
		or print "(leer)\n";
out:
	$res;
}
1;
