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_tarif_intervall($;$) {
	my($tari,$kn) = @_;

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

	$modu = "NULL" if $modu eq "-";
	log_update("tarif","id",$tari,undef,"intval",undef,
		get_descr("rechnung",DoFn("select intval from tarif where id=$tari"),1));
	Do("update tarif set intval=$modu where id=$tari");
}
1;
