Subversion Repositories wimsdev

Rev

Rev 14300 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 14300 Rev 17299
Line 19... Line 19...
19 
!endif
 19 
!endif
20 
s_nbdevoir=$nbredevoir
 20 
s_nbdevoir=$nbredevoir
21 
 
 21 
 
22 
!if $job2!=save
 22 
!if $job2!=save
23 
  !exit
 23 
  !exit
24 
!endif
 - 
 
25 
 
 - 
 
26 
!if $jquery_defined!=yes
 - 
 
27 
  jmonth=!char 2,3 of $[abs(floor($monthjdate))+100]
 - 
 
28 
  jday=!char 2,3 of $[abs(floor($dayjdate))+100]
 - 
 
29 
  jyear=!char -4 to -1 of $[abs(floor($yearjdate))+100000]
 - 
 
30 
  jdate=$(jyear)$(jmonth)$(jday)
 - 
 
31 
  !for i=1 to $s_nbdevoir
 - 
 
32 
    jmonth=!char 2,3 of $[abs(floor($(monthddate$i)))+100]
 - 
 
33 
    jday=!char 2,3 of $[abs(floor($(dayddate$i)))+100]
 - 
 
34 
    jyear=!char -4 to -1 of $[abs(floor($(yearddate$i)))+100000]
 - 
 
35 
    ddate$i=$(jyear)$(jmonth)$(jday)
 - 
 
36 
  !next i
 - 
 
37 
!endif
 24 
!endif
38 
 
 25 
 
39 
jyear=!char 1 to 4 of $jdate
 26 
jyear=!char 1 to 4 of $jdate
40 
jmonth=!char 5 to 6 of $jdate
 27 
jmonth=!char 6 to 7 of $jdate
41 
jday=!char 7 to 8 of $jdate
 28 
jday=!char 9 to 10 of $jdate
42 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
 29 
!if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 and N notin $jmonth$jday$jyear
43 
  and N notin $jmonth$jday$jyear
 - 
 
44 
 
 - 
 
45 
  !!  and $jyear$jmonth$jday<=$class_expiration
 - 
 
46 
  !!  and $jyear$jmonth$jday>=$class_creation
 - 
 
47 
  jour=$jyear$jmonth$jday
 30 
  jour=$jyear$jmonth$jday
48 
!else
 31 
!else
49 
  error=bad_day
 32 
  error=bad_day
50 
  !exit
 33 
  !exit
51 
!endif
 34 
!endif
Line 62... Line 45...
62 
!endif
 45 
!endif
63 
 
 46 
 
64 
ltjdevoir=$date_todo
 47 
ltjdevoir=$date_todo
65 
!for i=1 to $s_nbdevoir
 48 
!for i=1 to $s_nbdevoir
66 
  dyear=!char 1 to 4 of $(ddate$i)
 49 
  dyear=!char 1 to 4 of $(ddate$i)
67 
  dmonth=!char 5 to 6 of $(ddate$i)
 50 
  dmonth=!char 6 to 7 of $(ddate$i)
68 
  dday=!char 7 to 8 of $(ddate$i)
 51 
  dday=!char 9 to 10 of $(ddate$i)
69 
  !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
 52 
  !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
70 
   and N notin $dmonth$dday$dyear \
 53 
   and N notin $dmonth$dday$dyear \
71 
   and $dyear$dmonth$dday>$jour
 54 
   and $dyear$dmonth$dday>$jour
72 
   !! and $dyear$dmonth$dday<=$class_expiration
 - 
 
73 
   !! and $dyear$dmonth$dday>=$class_creation
 - 
 
74 
    jdevoir$i=$dyear$dmonth$dday
 55 
    jdevoir$i=$dyear$dmonth$dday
75 
    ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
 56 
    ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir
76 
  !else
 57 
  !else
77 
    error=bad_jday
 58 
    error=bad_jday
78 
    !exit
 59 
    !exit