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

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

	my($nam,$tkid,$tnid,$beg) = DoFn("select tarifname.name,tarifklasse.id,tarifname.id,tarif.beginn from tarif,tarifklasse,tarifname where tarif.id=$tari and tarif.klasse=tarifklasse.id and tarifklasse.tarifname=tarifname.id");
	if((isodate($beg))[1] != (isodate(DoTime))[1]) {
		print "Hmm, der ist aber bestimmt schon berechnet...\n";
		my $r = line_in "Willst du das wirklich? ";
		if (not defined $r or lc $r ne "ja") {
			print "... OK, dann nicht.\n";
			return;
		}
	}
	my $cnt1 = DoFn("select count(*) from tarif where klasse = $tkid");
	my $cnt2 = DoFn("select count(*) from tarifkunde where tarifname=$tnid");
	if($cnt1 == 1 and $cnt2 > 0) {
		print "Dieser Tarif wird noch verwendet!\n";
		return undef;
	}
	log_update("tarif","id",$tari,undef,"name","-",undef,$nam);
	log_update("tarifklasse","id",$tkid,undef,"tarif","-",undef,$tari);
	Do("delete from tarif where id = $tari");
	print "... entfernt.\n";
	return $tari;
}
1;
