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

sub list_deskrips(;$) {
	my($kn) = @_;
	my $hdr;
	line_printer;

	my $res = DoSelect {
		my($id,$nam) = @_;

		print $Db::pr_fh <<END unless $hdr++;
Name            Einträge
END

			goto out unless
		printf $Db::pr_fh "%-20s %3d\n",$nam,DoFn("select count(*) from descr where typ=$id");
	} "select id,name from descr_typ order by descr_typ.name"
		or print "(leer)\n";
out:
	$res;
}
1;
