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

sub list_umrechnung($;$) {
	my($dien,$kn) = @_;
	line_printer;

	DoSelect {
		my($timestamp,$berechne,$faktor,$info,$isrec) = @_;
		if($berechne) {
			$berechne = name_dienst($berechne);
		} else {
			$berechne = "-";
		}
		print $Db::pr_fh "Quelle    : ${\name_dienst $dien}\n";
		print $Db::pr_fh "Ziel      : $berechne\n";
		print $Db::pr_fh "Timestamp : ".isotime($timestamp)."\n";
		print $Db::pr_fh "Infotext  : $info\n" if defined $info;
		print $Db::pr_fh "Faktor    : $faktor\n";
		print $Db::pr_fh "rekursiv  : ".(($isrec eq "j")?"ja":"nein")."\n";
	} "select timestamp,berechne,faktor,infotext,isrec from tarifeq where dienst = $dien"
		or problem "Umrechnung '$dien' unbekannt";
}
1;
