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

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

    defined( my $pid = edit_personen $kunde,
        1, 'Kunde:', undef, '', $kunde )
      or return undef;

    my ($kid) = DoFn "SELECT kunde FROM person WHERE id = $pid";
    unless ($kid) {
        print "Den Kunden '$kunde' kenne ich nicht!\n";
        return;
    }
    $kid = qquote $kid;
    return $kid unless defined $idi;

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

1;
