use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn quote);
use Loader qw(editor log_update);

sub set_wartungsvertrag_beschreibung($;$) {
	my ( $id, $kn ) = @_;
	my $beschreibung =
	  defined $id
	  ? DoFn("SELECT beschreibung FROM wartungsvertrag WHERE id = $id")
	  : "(Bitte Beschreibung eingeben!)\n";
	$beschreibung = editor($beschreibung) or return;
	return $beschreibung unless defined $id;

	log_update( wartungsvertrag => id => $id, undef, 'beschreibung' );
	Do <<_;
	UPDATE wartungsvertrag
	SET    beschreibung='${\ quote $beschreibung }'
	WHERE  id=$id
_
	$beschreibung;
}

1;
