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

sub set_ipnr_kiste($;$) {
	my($idi,$kn) = @_;
	my($id,$okiste) = DoFn("select kunde,kiste from ipkunde where id=$idi");

	content ( my $kiste = line_in "Gateway: " ) or return;

	log_update("ipkunde","id",$idi,undef,"kiste",undef,$okiste);
	Do("update ipkunde set kiste=${\qquote $kiste,1} where id=$idi");

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