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

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

	my ( $beschreibung ) = DoFn <<_
	SELECT beschreibung
	FROM   wartungsvertrag
	WHERE  id = $id
_
	  or return problem "Wartungsvertrag #$id nicht gefunden.";

	line_printer(1);
	no warnings 'once';
	print $Db::pr_fh $beschreibung;
	line_print_end();
}

1;
