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

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

	DoSelect {
		my($timestamp,$person,$kunde,$ticket,$beginn,$dauer,$info,$art,$zeit) = @_;
		print $Db::pr_fh "ID         : $id\n";
		print $Db::pr_fh "Timestamp  : ".isotime($timestamp)."\n";
		print $Db::pr_fh "Eintrag für: ".mpersinfo($person)."\n";
		print $Db::pr_fh "Kunde      : #$kunde ".name_kunde($kunde)."\n" if defined $kunde;
		print $Db::pr_fh "Ticket     : #$ticket\n" if defined $ticket;
		print $Db::pr_fh "Start      : ".isotime($beginn)."\n";
		if(defined $zeit) {
			print $Db::pr_fh "Dauer      : ".iso_intervall($dauer)." (Cache: ".iso_intervall($zeit).")\n";
		} else {
			print $Db::pr_fh "Dauer      : ".iso_intervall($dauer)."\n";
		}
		printf$Db::pr_fh "Art        : ".DoFn("select name from stunden_art where id=$art")."\n";
		print $Db::pr_fh "Info       : $info\n" if defined $info;
	} "select timestamp,person,kunde,ticket,beginn,dauer,infotext,art,zeit from stunden where id = $id"
		or problem "Stunde '$id' unbekannt";
}
1;
