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

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

    content( my $ms = line_in 'Messstelle: ' ) or return;

    return problem "Messstelle #$ms kenne ich nicht!"
      unless $ms =~ m/^\d+\z/;
    return problem "Messstelle #$ms kenne ich nicht!"
      unless DoFn "SELECT id FROM mess_stelle WHERE id = $ms";

    $ms = qquote $ms;
    return $ms unless defined $idi;

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

1;
