+ ($status ) and push @loopfilter,{crit=>"Status", filter=>$status };
+ ($activity) and push @loopfilter,{crit=>"Activity",filter=>$activity};
+ push @loopfilter,{debug=>1, crit=>"Branches",filter=>join(" ", sort keys %$branches)};
+ push @loopfilter,{debug=>1, crit=>"(line, column)", filter=>"($line,$column)"};
+# year of activity
+ my ( $period_year, $period_month, $period_day )=Add_Delta_YM( Today(),-$period, 0);
+ my $newperioddate=$period_year."-".$period_month."-".$period_day;