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

sub list_wartungsvertrag($;$$) {
	my ( $id, $kn, $prefix ) = @_;
	$prefix = '' unless defined $prefix;

	my ( $timestamp, $name, $sla, $ansprechpartner ) = DoFn <<_
	SELECT timestamp, name, sla, ansprechpartner
	FROM   wartungsvertrag
	WHERE  id = $id
_
	  or return problem "Wartungsvertrag #$id nicht gefunden.";

	line_printer;
	no warnings 'once';
	print $Db::pr_fh <<_;
${prefix}ID             : $id
${prefix}Timestamp      : ${\ scalar isotime $timestamp }
${prefix}Name           : $name
${prefix}SLA            : $sla
${prefix}Ansprechpartner: #$ansprechpartner:${\ mpersinfo $ansprechpartner }
_
}

1;
