=head2 Änderungen

2001-10-20 smurf angelegt

=cut

use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in line_printer);
use Dbase::Globals qw(kpersinfo get_descr);
use Dbase::Help qw(DoSelect isodate);

sub list_stundenlisten($;$$) {
	my ($pers,$kn) = @_;

	my $hdr;
	line_printer(0);

	my $res = DoSelect {
		my($id,$ziel,$art,$zeitraum,$delay,$zuletzt) = @_;
		print $Db::pr_fh <<END unless $hdr++;
  ID Ziel        Art   Tage
END
		if($ziel) {
			$ziel=kpersinfo($ziel);
		} else {
			$ziel="AL+perso";
		}
		if($zeitraum) {
			$zeitraum = sprintf("%3d",$zeitraum);
		} else {
			$zeitraum = "mtl";
		}
		$zeitraum .= " +$delay";
		printf $Db::pr_fh "%4d %-10s  %-5s %s  %s\n", $id,$ziel,get_descr("std_liste",$art),$zeitraum, scalar isodate($zuletzt);
	} "select id,ziel,art,zeitraum,delay,zuletzt from stundenliste where person = $pers"
		or print "(leer)\n";
out:
	$res;
}
1;
