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

sub list_wartungsvertrag_zuordnung($$;$) {
	my ( $typ, $idi, $kn ) = @_;
	line_printer;

	my ( $timestamp, $wartungsvertrag, $beginn, $ende ) = DoFn <<_
	SELECT timestamp, wartungsvertrag, beginn, ende
	FROM   wartungsvertrag_$typ
	WHERE  wartungsvertrag_$typ.id = $idi
_
	  or return problem "\u$typ-Wartungsvertrag #$idi nicht gefunden.";
	no warnings 'once';
	print $Db::pr_fh <<_, $ende ? <<_ : (), <<_;
ID              : $idi
Timestamp       : ${\ scalar isotime $timestamp }
Laufzeit-Beginn : ${\ scalar isotime $beginn    }
_
Laufzeit-Ende   : ${\ scalar isotime $ende      }
_
Wartungsvertrag : #$wartungsvertrag
_
	list_wartungsvertrag $wartungsvertrag, undef, '>';
}

1;
