use utf8;
use warnings; no warnings "redefine";
use strict;

use Dbase::Globals qw(name_dienst);
use Dbase::Help qw(Do DoFn DoTime isodate unixdate);
use Loader qw(line_in log_update edit_tarif edit_dienste);

sub add_tarif($;$) {
	my($tkid,$kn) = @_;
	my($kid,$nam) = DoFn("select tarifklasse.kunde,tarifname.name from tarifklasse,tarifname where tarifklasse.id=$tkid and tarifname.id=tarifklasse.tarifname")||0;

	my $dien = edit_dienste(1,"");
	return undef unless defined $dien;

	my($jj,$mm,$tt) = isodate(DoTime);
	my $stm = unixdate($jj,$mm,1);
	my($mi,$umi) = DoFn("select mini,unitmini from tarif where dienst=$dien and klasse=$tkid and beginn=$stm order by mini desc,unitmini desc limit 1");
	if(not defined $mi) {
		$mi=0; $umi=0
	} elsif($umi) {
		$umi++;
	} else {
		$mi++;
	}

	my $act = Do("insert into tarif set klasse=$tkid, dienst=$dien, beginn=$stm, intval='m' ,dnull='j', mini=$mi,unitmini=$umi");

	log_update("tarif","id",$act,undef,"name","dienst","*",undef,$nam,name_dienst($dien));
	log_update("tarifklasse","id",$tkid,undef,"tarif","*",undef,$act);

	edit_tarif($act,$kn,$kid);
}

1;
