Subversion Repositories wimsdev

Rev

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

Rev 14300 Rev 17299
Line 13... Line 13...
13 
!bound nbredevoir between integer 0 and $max_todo default 1
 13 
!bound nbredevoir between integer 0 and $max_todo default 1
14 
!if $s_nbdevoir!=$nbredevoir
 14 
!if $s_nbdevoir!=$nbredevoir
15 
  !reset job2
 15 
  !reset job2
16 
!endif
 16 
!endif
17 
s_nbdevoir=$nbredevoir
 17 
s_nbdevoir=$nbredevoir
18 
 
 - 
 
19 
!if $jquery_defined!=yes
 - 
 
20 
  jmonth=!char 2,3 of $[abs(floor($monthjdate))+100]
 - 
 
21 
  jday=!char 2,3 of $[abs(floor($dayjdate))+100]
 - 
 
22 
  jyear=!char -4 to -1 of $[abs(floor($yearjdate))+100000]
 - 
 
23 
  jdate=$(jyear)$(jmonth)$(jday)
 - 
 
24 
  !for i=1 to $s_nbdevoir
 - 
 
25 
    jmonth=!char 2,3 of $[abs(floor($(monthddate$i)))+100]
 - 
 
26 
    jday=!char 2,3 of $[abs(floor($(dayddate$i)))+100]
 - 
 
27 
    jyear=!char -4 to -1 of $[abs(floor($(yearddate$i)))+100000]
 - 
 
28 
    ddate$i=$(jyear)$(jmonth)$(jday)
 - 
 
29 
  !next i
 - 
 
30 
!endif
 - 
 
31 
 
 18 
 
32 
!if $job2!=save
 19 
!if $job2!=save
33 
  !if $filename!=$empty and $old_date=$empty
 20 
  !if $filename!=$empty and $old_date=$empty
34 
    !read wimshome/log/classes/$wims_class/cdt/def/$filename
 21 
    !read wimshome/log/classes/$wims_class/cdt/def/$filename
35 
    !if yes isin $date_exist
 22 
    !if yes isin $date_exist
Line 40... Line 27...
40 
        !for i=1 to $nbredevoir
 27 
        !for i=1 to $nbredevoir
41 
          ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i
 28 
          ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i
42 
          tmp=!item $i of $date_todo
 29 
          tmp=!item $i of $date_todo
43 
          ddate$i=!char 1 to 8 of $tmp
 30 
          ddate$i=!char 1 to 8 of $tmp
44 
        !next i
 31 
        !next i
45 
      !endif
 32 
      !endif
46 
      s_nbdevoir=$nbredevoir
 33 
      s_nbdevoir=$nbredevoir
47 
       old_date=$filename
 34 
       old_date=$filename
48 
      !endif
 35 
      !endif
49 
      !reset filename
 36 
      !reset filename
50 
    !endif
 37 
    !endif
51 
    !exit
 38 
    !exit
52 
  !endif
 39 
  !endif
53 
  jyear=!char 1 to 4 of $jdate
 40 
  jyear=!char 1 to 4 of $jdate
54 
  jmonth=!char 5 to 6 of $jdate
 41 
  jmonth=!char 6 to 7 of $jdate
55 
  jday=!char 7 to 8 of $jdate
 42 
  jday=!char 9 to 10 of $jdate
56 
  !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \
 43 
  !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 and N notin $jmonth$jday$jyear
57 
      and N notin $jmonth$jday$jyear
 - 
 
58 
    !! and $jyear$jmonth$jday<=$class_expiration
 - 
 
59 
    !! and $jyear$jmonth$jday>=$class_creation
 - 
 
60 
 
 - 
 
61 
    jour=$jyear$jmonth$jday
 44 
    jour=$jyear$jmonth$jday
62 
  !else
 45 
  !else
63 
   error=bad_day
 46 
   error=bad_day
64 
  !exit
 47 
  !exit
65 
!endif
 48 
!endif
Line 73... Line 56...
73 
 
 56 
 
74 
ltjdevoir=$empty
 57 
ltjdevoir=$empty
75 
!if $s_nbdevoir>0
 58 
!if $s_nbdevoir>0
76 
  !for i=1 to $s_nbdevoir
 59 
  !for i=1 to $s_nbdevoir
77 
    dyear=!char 1 to 4 of $(ddate$i)
 60 
    dyear=!char 1 to 4 of $(ddate$i)
78 
    dmonth=!char 5 to 6 of $(ddate$i)
 61 
    dmonth=!char 6 to 7 of $(ddate$i)
79 
    dday=!char 7 to 8 of $(ddate$i)
 62 
    dday=!char 9 to 10 of $(ddate$i)
80 
    !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
 63 
    !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \
81 
       and $dyear$dmonth$dday>$jour \
 64 
       and $dyear$dmonth$dday>$jour \
82 
       and N notin $dmonth$dday$dyear
 65 
       and N notin $dmonth$dday$dyear
83 
      !! and $dyear$dmonth$dday<=$class_expiration
 - 
 
84 
      !! and $dyear$dmonth$dday>=$class_creation
 - 
 
85 
      jdevoir$i=$dyear$dmonth$dday
 66 
      jdevoir$i=$dyear$dmonth$dday
86 
    !else
 67 
    !else
87 
      error=bad_jday
 68 
      error=bad_jday
88 
      !exit
 69 
      !exit
89 
    !endif
 70 
    !endif