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

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

    content( my $rrd_min = line_in 'RRD Minimum: ' )
      or return 'NULL';

    return problem( qq(Das ist kein gültiger Minimum Wert (Dezimalformat).) )
      if $rrd_min !~ /^(?:-)?\d+(?:.\d+)?\z/ and $rrd_min ne '-';

    $rrd_min = $rrd_min eq '-' ? 'NULL' : qquote $rrd_min;

    return $rrd_min unless defined $idi;

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

1;
