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

sub flip_messverbraucher_acct($) {
    my ($mvid) = @_;

    my $offl = DoFn("SELECT acct FROM mess_verbraucher WHERE id = $mvid");
    my $ffl;
    if ( $offl ne "j" ) {
        $ffl = "'j'";
        print "Als accounting relevant markiert.\n";
    }
    else {
        $ffl = "'n'";
        print "Als NICHT accounting relevant markiert.\n";
    }
    log_update( "mess_verbraucher", "id", $mvid, undef, "acct", undef, $offl );
    Do("UPDATE mess_verbraucher SET acct = $ffl WHERE id = $mvid");
}
1;
