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

sub delete_messverbraucher($) {
    my ($idi) = @_;

    return problem "Den Messverbraucher #$idi gibt es nicht!"
      unless defined DoFn "SELECT id FROM mess_verbraucher WHERE id = $idi";

    log_update mess_verbraucher => id => $idi, undef, 'ende', undef,
      DoFn("SELECT ende FROM mess_verbraucher WHERE id = $idi");
    Do "UPDATE mess_verbraucher SET ende = " . DoTime . " WHERE id = $idi";

}

1;
