sub mcourse {
    my ($year, $month) = @_;

    my $_course = $course;

    #if ($year > $rubyear || $year == $rubyear && $month >= $rubmonth) {
        $_course = 1;
    #}
    #printf "course=%d year=%d month=%d\n", $_course, $year, $month;

    return $_course;
}