use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Loader qw(edit_kunden edit_personen log_update);
use Dbase::Globals qw(kkpersinfo);

sub set_wartungsvertrag_ansprechpartner($;$) {
	my ( $id, $kn ) = @_;
	my $kunde = edit_kunden( 1, 'Ansprechpartner aus' ) or return;
	my $person = edit_personen( $kunde, 1 ) or return;
	return $person unless defined $id;
	my($opers) = DoFn("select ansprechpartner from wartungsvertrag where id=$id");

	log_update( wartungsvertrag => id => $id, undef, 'ansprechpartner',undef,
		$opers,kkpersinfo($opers,1));
	Do "UPDATE wartungsvertrag SET ansprechpartner=$person WHERE id=$id";
	$person;
}

1;
