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

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

    content( my $oid_praefix = line_in 'OID Präfix: ' ) or return 'NULL';
    if ( $oid_praefix eq '-' ) {
        $oid_praefix = 'NULL';
    }
    else {
        warnung "Kein Punkt '.' am Ende gesetzt! Bitte ggf. korrigieren!"
          unless $oid_praefix =~ /\.$/;
        $oid_praefix = qquote $oid_praefix;
    }
    return $oid_praefix unless defined $idi;

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

1;
