use utf8;
use warnings; no warnings "redefine";
use strict;
use Fehler qw(problem);
use Loader qw(line_printer);
use Cf qw($MAILDOM);
use Dbase::Globals qw(get_descr mmpersinfo mpersinfo name_kunde no_crlf);
use Dbase::Help qw(DoSelect isotime DoFn);

sub list_stundenliste($;$) {
	my($id,$kn) = @_;
	line_printer;

	DoSelect {
		my($timestamp,$person,$ziel,$zuletzt,$zeitraum,$delay,$art,$kunde,$info) = @_;
		print $Db::pr_fh "ID       : $id\n";
		print $Db::pr_fh "Timestamp: ".isotime($timestamp)."\n";
		print $Db::pr_fh "Person   : #$person:".mpersinfo($person)."\n";
		print $Db::pr_fh "Art      : ".get_descr("std_liste",$art)."\n";
		if(defined $ziel)  {
			print $Db::pr_fh "Ziel     : #$ziel:".mpersinfo($ziel)."\n";
		} else {
			my $al = DoFn("select vorgesetzter from perso where person = $person");
			if(defined $al) {
				$al = ", ".mmpersinfo($al);
			} else {
				$al = "";
			}
			print $Db::pr_fh "Ziel     : perso\@$MAILDOM$al, ".mmpersinfo($person)."\n";
		}
		print $Db::pr_fh "Kunde    : ".($kunde ? "#$kunde:".name_kunde($kunde) : "(alle)")."\n";
		print $Db::pr_fh "Intervall: ".($zeitraum ? "$zeitraum Tage" : "1 Monat")."\n";
		print $Db::pr_fh "Verzögert: ".(($delay==1) ? "1 Tag" : "$delay Tage")."\n" if $delay;
		print $Db::pr_fh "zuletzt  : ".isotime($zuletzt)."\n";
		print $Db::pr_fh "Info     : ".no_crlf($info,"\n         : ")."\n" if defined $info;
	} "select timestamp,person,ziel,zuletzt,zeitraum,delay,art,kunde,infotext from stundenliste where id = $id"
		or problem "Benachrichtigung '$id' unbekannt";
}

1;
