=head1 list_umrechnungen

Listet die Umrechnungstabelle auf.

=head2 Argumente

=over 4

=item $kn

Standard-Prompt

Wird hier ignoriert.

=back

=head2 Ergebnis

Nix.

=cut

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

sub list_umrechnungen(;$) {
	my($kn) = @_;
	my $hdr;
	line_printer;

	my $res = DoSelect {
		my($dienst,$berechne,$faktor,$info,$isrec) = @_;
		$info="" if not defined $info;

		print $Db::pr_fh <<END unless $hdr++;
von        nach       R Faktor*100
END

		goto out unless 
		printf $Db::pr_fh "%-10s %-10s %1s %4d %s\n",name_dienst($dienst),(defined $berechne) ? name_dienst($berechne) : "-",($isrec eq "j")? "*" : " ", $faktor, $info;
	} "select dienst,berechne,faktor,infotext,isrec from tarifeq"
		or print "(leer)\n";
out:
	$res;
}
1;
