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

sub flip_tarif_vrechnung($$) {
	my($tari,$kn) = @_;

	my $offl = DoFn("select dnull from tarif where id = $tari");
	my $ffl;
	if($offl ne "j") {
		$ffl = "'j'";
		print "Drucke var.Preis auch, wenn 0.\n";
	} else {
		$ffl = "'n'";
		print "Drucke var.Preis nur, wenn > 0.\n";
	}
	log_update("tarif","id",$tari,undef,"dnull",undef,$offl);
	Do("update tarif set dnull = $ffl where id = $tari");
}
1;
