Branch: Tag:

1998-01-27

1998-01-27 06:25:22 by Mirar (Pontus Hagland) <pike@sort.mirar.org>

bugfix

Rev: lib/modules/Calendar.pmod/Gregorian.pmod:1.7

864:    {    int n;    object ye=this->year(); -  n=(-({-1,-2,-3,3,2,1,0})[this->year()->julian_day(0)%7]+d)/7+1; +  n=(-({-1,-2,-3,-4,2,1,0})[this->year()->julian_day(0)%7]+d)/7+1;    if (n>ye->number_of_weeks())    return ye->next()->week(1);    else if (n<=0)