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

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

	DoSelect {
	    my ($timestamp, $name, $info, $rechnungstext ) = @_;
		print $Db::pr_fh "ID           : $id\n";
		print $Db::pr_fh "Timestamp    : ".isotime($timestamp)."\n";
		print $Db::pr_fh "Name         : $name\n";
		print $Db::pr_fh "Infotext     : $info\n" if defined $info;
		print $Db::pr_fh "Rechnungstext: $rechnungstext\n" if defined $rechnungstext;
		#my($ziel,$fak,$inf) = DoFn("select ziel,faktor,info from tarifeq where quelle=$id");
		my($ber,$fak,$inf) = DoFn("select berechne,faktor,infotext from tarifeq where dienst=$id");
		if(defined $fak) {
			my $dname;
			if (defined $ber) {
				$dname = name_dienst($ber);
			} else {
				$dname = "-";
			}
			$fak = sprintf("%.2f",$fak/100);
			$inf = "" if not defined $inf;
			print $Db::pr_fh "Umrechnen    : $dname (* $fak) $inf\n";
		}

	} "SELECT timestamp, name, info, rechnungstext FROM dienst WHERE id = $id"
		or problem "Dienst '$id' unbekannt";
}
1;
