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

sub set_leitung_name_kunde($;$) {
	my ( $idi, $kn ) = @_;
	content( my $name = line_in 'kundeneigene Leitungsbezeichnung: ' ) or return;
	log_update leitung => id => $idi, undef, 'name_kunde',
		DoFn("select name_kunde from leitung WHERE id=$idi");
	my $qname = $name eq '-' ? 'NULL' : qquote $name;
	Do "UPDATE leitung SET name_kunde=$qname WHERE id=$idi";
}

1;
