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

sub list_rechsteps(;$$) {
	my($kn,$kid) = @_;
	line_printer;
	my $ksel;
	if($kid) {
		$ksel = "kunde=$kid";
	} else {
		$ksel = "kunde is NULL";
	}

	my $hdr;
	my $res = DoSelect {
		my($id,$step,$dienst,$flags,$info) = @_;
		$info="" unless defined $info;

		print $Db::pr_fh <<END unless $hdr++;
Pos Dienst          Flags+Info
END
		goto out unless
		printf $Db::pr_fh "%3d %-15s %s %s\n",$step,name_dienst($dienst),scalar flag_names($flags,"acctflag"),$info;
	} "select id,step,dienst,flags,info from rechstep where $ksel order by step,dienst"
		or print "(leer)\n";
out:
	$res;
}
1;
