if ($freqdata->{'unit'}) {
my ( $year, $month, $day ) = split /-/, $publisheddate;
return unless check_date($year, $month, $day);
# Process an irregularity Hash
# Suppose that irregularities are stored in a string with this structure
# irreg1;irreg2;irreg3
-