Subversion Repositories wimsdev

Rev

Rev 13610 | Rev 14300 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13610 Rev 14043
Line 32... Line 32...
32 
jday=!char 2,3 of $[abs(floor($jday))+100]
 32 
jday=!char 2,3 of $[abs(floor($jday))+100]
33 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
 33 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
34 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
 34 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
35 
  and N notin $jmonth$jday$jyear
 35 
  and N notin $jmonth$jday$jyear
36 
 
 36 
 
37 
!!  and $jyear$jmonth$jday<=$class_expiration
 37 
  !!  and $jyear$jmonth$jday<=$class_expiration
38 
!!  and $jyear$jmonth$jday>=$class_creation
 38 
  !!  and $jyear$jmonth$jday>=$class_creation
39 
  jour=$jyear$jmonth$jday
 39 
  jour=$jyear$jmonth$jday
40 
!else
 40 
!else
41 
  error=bad_day
 41 
  error=bad_day
42 
  !exit
 42 
  !exit
43 
!endif
 43 
!endif