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

sub set_leitung_carrier($;$) {
	my($id,$kn) = @_;
	my($operson) = DoFn "select carrier from leitung where id=$id";
	my $kunde = edit_kunden 1, 'Carrier aus' or return;
	my $person = edit_personen $kunde, 1|4 or return;
	$person = 'NULL' if $person eq '-';
	log_update leitung => id => $id, undef, 'carrier','carrier', undef,
		$operson,kkpersinfo($operson,2);
	Do "UPDATE leitung SET carrier=$person WHERE id=$id";
	$person;
}

1;
