use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update edit_dienste edit_ktarif
	list_tarife_kurz set_ktarif_tarif);
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content);

sub add_ktarif($$) {
	my($id,$kn) = @_;

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

	my $act = Do("insert into tarifkunde set kunde=$id, tarifname=$tname, dienst=$dien, beginn=UNIX_TIMESTAMP(NOW()), anzahl=1");
	log_update("tarifkunde","id",$act,undef,"*");

	log_update("kunde","id",$id,undef,"tarifkunde","*",undef,$act);
	Do("update kunde set geaendert = UNIX_TIMESTAMP(NOW()) where id = $id");
	return edit_ktarif($act,$id,$kn);
}
1;
