use utf8;
use warnings; no warnings "redefine";
use strict;
use Dbase::Help qw(Do DoFn qquote);
use Dbase::Globals qw(content name_dienst);
use Fehler qw(problem);
use Loader qw(edit_dienste select_descr log_update);

sub set_messtyp_dienst($;$) {
    my ( $idi, $kn ) = @_;

    content( my $dienst = edit_dienste( 1, $kn ) ) or return;

    return problem "Das ist ein Pflichtfeld und kann daher nicht gelöscht werden.\n"
      if $dienst eq '-';

    $dienst = qquote $dienst;
    return $dienst unless defined $idi;

    my ($odienst) = DoFn "SELECT dienst FROM mess_typ WHERE id = $idi";
    log_update mess_typ => id => $idi,
      undef, 'dienst', undef, name_dienst($odienst);
    Do "UPDATE mess_typ SET dienst = $dienst WHERE id = $idi";
}

1;
