Subversion Repositories wimsdev

Rev

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

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