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

sub set_tarifklasse_klasse($;$) {
	my($tkid,$kn) = @_;

	my $kl = DoFn("select klassen from tarifklasse where id=$tkid");

	my $nkl = select_flags($kl,"tarifklasse","Klassen","!hide");
	return unless defined $nkl;
	
	log_update("tarifklasse","id",$tkid,undef,"klassen",undef,
		scalar flag_names($nkl,"tarifklasse",$kl));
	Do("update tarifklasse set klassen=$nkl where id=$tkid");
}
1;
