use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(DoFn Do qquote);
use Dbase::Globals qw(get_descr);
use Loader qw(select_descr log_update);

sub set_leitung_art($;$) {
	my ( $idi, $kn ) = @_;

	defined(
		my $art = select_descr
		  leitungsart => 4,
		'', 'Leitungsart' . ( !defined $idi && ' (optional)' ), '!hide'
	  )
	  or return;
	$art = $art eq '-' ? 'NULL' : qquote $art;
	return $art unless defined $idi;

	my ( $kunde, $oart ) =
	  DoFn "SELECT kunde, art FROM leitung WHERE id = $idi";
	log_update leitung =>
	  id               => $idi,
	  undef, 'art', undef, get_descr( leitungsart => $oart, 1 );
	Do "UPDATE leitung SET art=$art WHERE id = $idi";

	Do "UPDATE kunde SET geaendert=UNIX_TIMESTAMP(NOW()) WHERE id = $kunde"
	  if $kunde;
}

1;
