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

sub set_rechstep_flags($;$) {
	my($id,$kn) = @_; 

	my $oflag = $id ? DoFn("select flags from rechstep where id=$id") : 0;
	my $flag = select_flags($oflag,"acctflag","Flags","!hide");
	return undef unless defined $flag;
	return $flag unless defined $id;

	log_update("rechstep","id",$id,undef,"flags",undef,
		scalar flag_names($flag,"acctflag",$oflag));
	Do("update rechstep set flags=$flag where id=$id");
	$flag;
}
1;
