=head5 set_stunde_ticket

C<set_stunde_ticket( ID [Prompt] )>

Ändert das einem Stundeneintrag zugeordnete Ticket.

=cut

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

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

	my $okk = DoFn("select ticket from stunden where id=$id");
	my $kk = edit_tickets(DoFn("select kunde from stunden where id=$id"),1+4,$kn);
	return undef unless defined($kk);
	return 0 if $kk == $okk;
	$kk="NULL" if $kk eq "-";

	log_update("stunden","id",$id,undef,"ticket",undef,
		DoFn("select ticket from stunden where id=$id"));
	Do("update stunden set ticket=$kk where id=$id");
	DoSeq("stdupdate");
	$kk;
}
1;
