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

sub set_ipregion_name($;$) {
	my($idi,$kn) = @_;
	my($id,$oname) = DoFn("select kunde,zone from ipregion where id=$idi");

	content ( my $kk = line_in "Name: " ) or return;
	$kk eq "-" and return problem "Das geht nicht -- jede Region braucht einen Namen.\n";

	log_update("ipregion","id",$idi,undef,"zone",undef,def_or_minus($oname));
	Do("update ipregion set zone=${\qquote $kk,1} where id=$idi");

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