Subversion Repositories wimsdev

Rev

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

Rev 8271 Rev 10189
Line 31... Line 31...
31 
     tmp=!item $i of $date_todo
 31 
     tmp=!item $i of $date_todo
32 
     dday$i=!char 7 to 8 of $tmp
 32 
     dday$i=!char 7 to 8 of $tmp
33 
     dmonth$i=!char 5 to 6 of $tmp
 33 
     dmonth$i=!char 5 to 6 of $tmp
34 
     dyear$i=!char 1 to 4 of $tmp
 34 
     dyear$i=!char 1 to 4 of $tmp
35 
    !next i
 35 
    !next i
36 
   !endif
36 
   !endif
37 
   s_nbdevoir=$nbredevoir
 37 
   s_nbdevoir=$nbredevoir
38 
   old_date=$filename
 38 
   old_date=$filename
39 
  !endif
39 
  !endif
40 
  !reset filename
 40 
  !reset filename
41 
 !endif
 41 
 !endif
42 
 !exit
 42 
 !exit
43 
!endif
 43 
!endif
44 
 
 44 
 
Line 46... Line 46...
46 
jday=!char 2,3 of $[abs(floor($jday))+100]
 46 
jday=!char 2,3 of $[abs(floor($jday))+100]
47 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
 47 
jyear=!char -4 to -1 of $[abs(floor($jyear))+100000]
48 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
 48 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
49 
	and N notin $jmonth$jday$jyear
 49 
	and N notin $jmonth$jday$jyear
50 
!!	and $jyear$jmonth$jday<=$class_expiration
 50 
!!	and $jyear$jmonth$jday<=$class_expiration
51 
!!	and $jyear$jmonth$jday>=$class_creation
51 
!!	and $jyear$jmonth$jday>=$class_creation
52 
 
 52 
 
53 
 jour=$jyear$jmonth$jday
 53 
 jour=$jyear$jmonth$jday
54 
!else
 54 
!else
55 
 error=bad_day
 55 
 error=bad_day
56 
 !exit
 56 
 !exit
Line 70... Line 70...
70 
 dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
 70 
 dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000]
71 
 !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
 71 
 !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
72 
	and $dyear$dmonth$dday>$jour \
 72 
	and $dyear$dmonth$dday>$jour \
73 
	and N notin $dmonth$dday$dyear
 73 
	and N notin $dmonth$dday$dyear
74 
!!	and $dyear$dmonth$dday<=$class_expiration
 74 
!!	and $dyear$dmonth$dday<=$class_expiration
75 
!!	and $dyear$dmonth$dday>=$class_creation
75 
!!	and $dyear$dmonth$dday>=$class_creation
76 
  jdevoir$i=$dyear$dmonth$dday
 76 
  jdevoir$i=$dyear$dmonth$dday
77 
 !else
 77 
 !else
78 
  error=bad_jday
 78 
  error=bad_jday
79 
  !exit
 79 
  !exit
80 
 !endif
 80 
 !endif