[Aimmath-commit] AIM/WEB-INF/maple Date.mpl,1.7,1.8

[Greg G. <gr...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27620

Modified Files:
	Date.mpl 
Log Message:
Not that it matters much, but the 'WeekDay', 'WeekDayName', etc. methods of
the Date class were not being set correctly (they needed to take account of
the fact that 1 January, 1970 was a Thursday). Now they are.           - GG


Index: Date.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/Date.mpl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Date.mpl	29 Aug 2004 20:34:50 -0000	1.7
--- Date.mpl	30 Aug 2004 06:24:16 -0000	1.8
***************
*** 549,553 ****
      this['Second'] := second;
  
!     this['WeekDay'] := irem(iquo(this['Raw'] + offset,86400),7);
     fi;
  
--- 549,554 ----
      this['Second'] := second;
  
!     ### 1 January, 1970 was a Thursday
!     this['WeekDay'] := irem(iquo(this['Raw'] + offset,86400) + 4,7);
     fi;
  
***************
*** 611,615 ****
  
     this['Raw'] := raw - offset;
!    this['WeekDay'] := irem(iquo(raw,86400),7);
    end
   ],
--- 612,617 ----
  
     this['Raw'] := raw - offset;
!    ### 1 January, 1970 was a Thursday
!    this['WeekDay'] := irem(iquo(raw,86400) + 4,7);
    end
   ],