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

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

	my $kunde = edit_kunden(1+4);
	return undef unless defined($kunde);
	$kunde = "NULL" if $kunde eq "-";

	log_update("stundenliste","id",$id,undef,"kunde",undef,
		DoFn("select kunde from stundenliste where id=$id"));
	Do("update stundenliste set kunde=$kunde where id=$id");
}
1;
