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

sub set_rechstep_dienst($;$) {
	my($id,$kn) = @_;

    my $dien = edit_dienste(1,"");
	return undef unless defined $dien;
	return $dien unless defined $id;

	my($kid,$odien) = DoFn("select kunde,dienst from rechstep where id=$id");
	log_update("rechstep","id",$id,undef,"dienst",undef,
		(defined $odien) ? name_dienst($odien) : "-");
	Do("update rechstep set dienst=$dien where id=$id");

	Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$kid") if $kid;
}
1;
