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

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

	my $offl = DoFn("select nonum from tarif where id = $tari");
	my $ffl;

	if($offl ne "j") {
		$ffl = "'j'";
		print "Anzahl geht auf den Preis.\n";
	} else {
		$ffl = "'n'";
		print "Anzahl wird ausgewiesen.\n";
	}
	log_update("tarif","id",$tari,undef,"nonum",undef,$offl);
	Do("update tarif set nonum = $ffl where id = $tari");
}
1;
