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

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

    content( my $wertart = line_in 'Wertart (Freitext): ' );
    
    $wertart = '' unless defined $wertart;
    $wertart = $wertart eq '-' ? '' : qquote $wertart;
    return $wertart unless defined $idi;

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

1;
