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

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

	my $dest = select_descr("ziel",1+4,"","Ziel","!hide");
	return undef unless defined $dest;

	$dest = 'NULL' if $dest eq '-';

	log_update('ipkunde','id',$id,undef,'dest',undef,
		get_descr("ziel",DoFn("select dest from ipkunde where id=$id"),1));
	Do("update ipkunde set dest=$dest where id=$id");
}

1;
