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

sub set_arechnung_flags($;$) {
	my($rech,$kn) = @_;

	return undef unless check_perm("rechnung");

	my $kl = DoFn("select flags from rechnungen where rnr = $rech");
	my $nkl = select_flags($kl,"rstatus","Flags","!hide");
	
	return undef unless defined $nkl;
	return $nkl if $kl == $nkl;

	log_update("kunde","id",$rech,undef,"flags",undef,
		scalar flag_names($nkl,"rstatus",DoFn("select flags from rechnungen where rnr=$rech")));
	Do("update rechnungen set flags=$nkl where rnr=$rech");
}
1;
