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

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

	line_printer;
	my $res = DoSelect {
		print $Db::pr_fh " ID Name\n" unless $hdr++;
		printf $Db::pr_fh "%3d %s\n", @_ or goto out
	} <<_
	SELECT   id, name, sla, ansprechpartner, beschreibung
	FROM     wartungsvertrag
	ORDER BY name
_
	  or print "(keine Einträge gefunden)\n";
	out:
	$res;
}

1;
