use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do qquote);
use Fehler qw(problem);
use Loader qw( edit_wartungsvertrag
  line_in log_update
  set_wartungsvertrag_name
  set_wartungsvertrag_sla
  set_wartungsvertrag_ansprechpartner
  set_wartungsvertrag_beschreibung );

sub add_wartungsvertrag(;$) {
	my ($kn) = @_;
	defined( my $name = set_wartungsvertrag_name( undef, $kn ) ) or return;
	defined( my $sla  = set_wartungsvertrag_sla( undef,  $kn ) ) or return;
	defined( my $ansprechpartner =
		  set_wartungsvertrag_ansprechpartner( undef, $kn ) )
	  or return;
	defined( my $beschreibung = set_wartungsvertrag_beschreibung( undef, $kn ) )
	  or return;
	my $id = Do <<_;
	INSERT INTO wartungsvertrag
	SET	name           =${\ qquote $name         },
		sla            =${\ qquote $sla          },
		ansprechpartner=$ansprechpartner,
		beschreibung   =${\ qquote $beschreibung }
_
	log_update wartungsvertrag => id => $id, undef, 'name','*', undef, $name;
	edit_wartungsvertrag( $id, $kn );
}

1;
