=head5 set_stunde_kunde

C<set_stunde_kunde( ID [Prompt] )>

Ändert den einem Stundeneintrag zugeordneten Kunden.

=cut

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

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

	my $okk = DoFn("select kunde from stunden where id=$id");
	my $kk = edit_kunden(1,$kn) or return undef;
	return if $kk == $okk;

	log_update("stunden","id",$id,undef,"kunde",undef,$okk);
	Do("update stunden set kunde=$kk where id=$id");
	$kk;
}
1;
