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

sub set_kunde_sprache($) {
	my ($id) = @_;
	my $_sprache = DoFn "SELECT sprache FROM kunde WHERE id=$id";
	content ( my $sprache =
		  select_descr( sprache => 4|1024|8192, '', 'Sprache', '!hide' ) )
	  or return;

	if($sprache eq "-") {
		return if not defined $_sprache;
		$sprache = "NULL";
	} else {
		return if defined $_sprache and $sprache == $_sprache;
	}

	log_update( kunde => id => $id, undef, sprache => undef,
		get_descr( sprache => $_sprache, 1 ) );
	Do("UPDATE kunde SET sprache=$sprache WHERE id=$id");
}

1;
