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

sub set_leitung_name($;$) {
	my ( $idi, $kn ) = @_;
	content( my $name = line_in 'Name: ' ) or return;
	log_update( 'leitung', 'id', $idi, undef, 'name', undef,
		DoFn("select name from leitung WHERE id=$idi"));
	Do("UPDATE leitung SET name='${\quote $name}' WHERE id=$idi");
}

1;
