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

sub list_person_flags($;$) {
	my($id,$kn) = @_;
	line_printer;

	my $hdr;
	my $res = DoSelect {
		my($fl,$tm) = @_;
		print $Db::pr_fh <<END unless $hdr++;
Datum             Flag
END
			goto out unless
		printf $Db::pr_fh "%16s %s%s\n",scalar isotime($tm),($fl&1)?"+":"-",scalar flag_names($fl&~1,"pwdomain");
		
	} "select flag,timestamp from pwhist where person = $id order by timestamp"
		or print "(leer)\n";
out:
	$res;
}
1;
