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

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

	my $hdr;
	my $res = DoSelect {
		my($id,$name,$info) = @_;
		print $Db::pr_fh <<END unless $hdr++;
  ID Name            Info
END
		$info="" unless defined $info;
		goto out unless
		printf $Db::pr_fh "%4d %-15s %s\n",$id,$name,$info;
	} "select id,name,info from dienst"
		or print "(leer)\n";
out:
	$res;
}
1;
