use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn);
use Dbase::Globals qw(name_dienst);
use Loader qw(edit_dienste log_update);

sub set_umrechnung_ziel($;$) {
	my($dien,$kn) = @_;

    my $ndien = edit_dienste(1+4,"");
	return unless defined $ndien;

	$ndien = "NULL" if $ndien eq "-";
	my $odien = DoFn("select berechne from tarifeq where dienst=$dien");

	log_update("tarifeq","dienst",$dien,undef,"berechne",undef,
		(defined $odien) ? name_dienst($odien) : "-");
	Do("update tarifeq set berechne=$ndien where dienst=$dien");
}
1;
