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

sub set_ipnr_tarif($;$) {
	my($idi,$kn) = @_;
	my($id,$odien) = DoFn("select kunde,tarif from ipkunde where id=$idi");

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

	log_update("ipkunde","id",$idi,undef,"dienst",undef, (defined $odien) ? name_dienst($odien) : "-");
	Do("update ipkunde set tarif=$dien where id=$idi");

	if($id > 0) {
		Do("update kunde set geaendert=UNIX_TIMESTAMP(NOW()) where id=$id");
	}
}
1;
