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 21... | Line 21... | ||
21 | 21 | ||
22 | !if $job2!=save |
22 | !if $job2!=save |
23 | !exit |
23 | !exit |
24 | !endif |
24 | !endif |
25 | 25 | ||
26 | !if |
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] |
|
27 | jyear=!char |
29 | jyear=!char -4 to -1 of $[abs(floor($yearjdate))+100000] |
28 |
|
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] |
|
29 |
|
35 | ddate$i=$(jyear)$(jmonth)$(jday) |
- | 36 | !next i |
|
30 | !endif |
37 | !endif |
- | 38 | ||
31 |
|
39 | jyear=!char 1 to 4 of $jdate |
32 |
|
40 | jmonth=!char 5 to 6 of $jdate |
33 |
|
41 | jday=!char 7 to 8 of $jdate |
34 | !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \ |
42 | !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \ |
35 | and N notin $jmonth$jday$jyear |
43 | and N notin $jmonth$jday$jyear |
36 | 44 | ||
37 | !! and $jyear$jmonth$jday<=$class_expiration |
45 | !! and $jyear$jmonth$jday<=$class_expiration |
38 | !! and $jyear$jmonth$jday>=$class_creation |
46 | !! and $jyear$jmonth$jday>=$class_creation |
39 | jour=$jyear$jmonth$jday |
47 | jour=$jyear$jmonth$jday |
40 | !else |
48 | !else |
41 | error=bad_day |
49 | error=bad_day |
42 | !exit |
50 | !exit |
43 | !endif |
51 | !endif |
44 | !reset date_todo,date_exist |
52 | !reset date_todo,date_exist |
45 | !read wimshome/log/classes/$wims_class/cdt/def/$jour |
53 | !read wimshome/log/classes/$wims_class/cdt/def/$jour |
46 | tmp=!itemcnt $date_todo |
54 | tmp=!itemcnt $date_todo |
47 | !if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo |
55 | !if yes isin $date_exist and $tmp+$s_nbdevoir>$max_todo |
48 | error=toomany_todo |
56 | error=toomany_todo |
Line 53... | Line 61... | ||
53 | !exit |
61 | !exit |
54 | !endif |
62 | !endif |
55 | 63 | ||
56 | ltjdevoir=$date_todo |
64 | ltjdevoir=$date_todo |
57 | !for i=1 to $s_nbdevoir |
65 | !for i=1 to $s_nbdevoir |
58 | !if $jquery_defined=yes |
- | |
59 |
|
66 | dyear=!char 1 to 4 of $(ddate$i) |
60 |
|
67 | dmonth=!char 5 to 6 of $(ddate$i) |
61 |
|
68 | dday=!char 7 to 8 of $(ddate$i) |
62 | !endif |
- | |
63 | dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100] |
- | |
64 | dday=!char 2,3 of $[abs(floor($(dday$i)))+100] |
- | |
65 | dyear=!char -4 to -1 of $[abs(floor($(dyear$i)))+100000] |
- | |
66 | !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \ |
69 | !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \ |
67 | and N notin $dmonth$dday$dyear \ |
70 | and N notin $dmonth$dday$dyear \ |
68 | and $dyear$dmonth$dday>$jour |
71 | and $dyear$dmonth$dday>$jour |
69 | !! and $dyear$dmonth$dday<=$class_expiration |
72 | !! and $dyear$dmonth$dday<=$class_expiration |
70 | !! and $dyear$dmonth$dday>=$class_creation |
73 | !! and $dyear$dmonth$dday>=$class_creation |
Line 121... | Line 124... | ||
121 | !sh rm $s2file.tmp;\ |
124 | !sh rm $s2file.tmp;\ |
122 | mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour; |
125 | mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour; |
123 | 126 | ||
124 | !read proc/mkindex.proc |
127 | !read proc/mkindex.proc |
125 | 128 | ||
126 |
|
129 | !!jday2=$jday |
127 |
|
130 | !!jmonth2=$jmonth |
128 |
|
131 | !!jyear2=$jyear |
129 | job=work |
132 | job=work |
130 | !read work.proc |
133 | !read work.proc |