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

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

	my $modu = select_descr("intervall",1+2,"","Modus","!hide");
	return undef unless defined $modu;

	log_update("kunde","id",$id,undef,"berechne",undef,
		get_descr("intervall",DoFn("select berechne from kunde where id=$id"),1));
	Do("update kunde set berechne=$modu, geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
}
1;
