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

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

	my($offl) = DoFn("select obsolet from tarifklasse where id = $tkid");

	my $ffl;
	if($offl ne "j") {
		$ffl = "'j'";
		print "Der Tarif ist als Altlast markiert.\n";
	} else {
		$ffl = "'n'";
		print "Der Tarif ist nicht mehr als Altlast markiert.\n";
	}
	log_update("tarifklasse","id",$tkid,undef,"obsolet",undef,$offl);
	Do("update tarifklasse set obsolet = $ffl where id = $tkid");
}
1;
