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

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

    my ($kid) = DoFn "SELECT kunde FROM leitung WHERE id = $idi";
	content( my $idk = edit_ktarife( $kid, 1 | 4, $kn ) )
      or return defined $idi ? () : 'NULL';

	$idk = $idk eq '-' ? 'NULL' : qquote $idk;
    return $idk unless defined $idi;

    log_update( "leitung" => "id" => $idi,
        undef, "ktarif",
        undef, DoFn("SELECT ktarif FROM leitung WHERE id = $idi") );
    Do("UPDATE leitung SET ktarif = $idk WHERE id = $idi");
}

1;
