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

sub list_deskr($$;$) {
	my($desc,$id,$kn) = @_;
	my $dname = DoFn "select name from descr_typ where id=$desc";
	line_printer;

	DoSelect {
		my($timestamp,$bla,$info,$gruppe,$idchar) = @_;
		print $Db::pr_fh "ID       : $id\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Text     : $bla\n";
		print $Db::pr_fh "Übersicht: $idchar\n" if defined $idchar;
		print $Db::pr_fh "Infotext : $info\n" if content $info;
		print $Db::pr_fh "Gruppe   : ".flag_names($gruppe,"${dname}_ident")."\n";
	} "select timestamp,bla,infotext,gruppe,idchar from descr where typ=$desc and descr=$id"
		or problem "Deskriptor '$desc/$id' unbekannt";
}
1;
