■ chalow (make_day_list)

if (defined $all_entries{$ym."-".$day}) {

if (defined $entry_statistics{ymd}{$ym."-".$day}) {