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

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

    defined(
        my $einheit = select_descr
          einheit => 1024 | 2048,
        "l - Liste\n", 'Einheit', '!hide'
    ) or return;
    $einheit = qquote $einheit;
    return $einheit unless defined $idi;

    my ($oeinheit) = DoFn "SELECT einheit FROM mess_typ WHERE id = $idi";
    log_update mess_typ =>
      id                => $idi,
      undef, 'einheit', undef, get_descr( einheit => $oeinheit, 1 );
    Do "UPDATE mess_typ SET einheit = $einheit WHERE id = $idi";
}

1;
