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_status($;$) {
    my ( $idi, $kn ) = @_;

    defined(
        my $status = select_descr
          status => 1024 | 2048,
        "l - Liste\n", 'Status: ', '!hide'
    ) or return '0';
    $status = $status eq '-' ? '0' : qquote $status;
    return $status unless defined $idi;

    my ($ostatus) = DoFn "SELECT status FROM mess_typ WHERE id = $idi";

    log_update mess_typ =>
      id                => $idi,
      undef, 'status', undef, get_descr( status => $ostatus, 1 );
    Do "UPDATE mess_typ SET status = $status WHERE id=$idi";
}

1;
