Rev 11798 | Rev 14300 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 11798 | Rev 14043 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | desc_limit=4000 |
1 | desc_limit=4000 |
2 | 2 | ||
3 | today=!char 1 to 8 of $wims_now |
3 | today=!char 1 to 8 of $wims_now |
4 | thisyear=!char 1 to 4 of $today |
4 | thisyear=!char 1 to 4 of $today |
5 | !if $class_expiration=$empty |
5 | !if $class_expiration=$empty |
6 | !defread wimshome/log/classes/$wims_class/.def |
6 | !defread wimshome/log/classes/$wims_class/.def |
7 | !endif |
7 | !endif |
8 | !if $class_expiration=$empty |
8 | !if $class_expiration=$empty |
9 | error=bad_class |
9 | error=bad_class |
10 | !exit |
10 | !exit |
11 | !endif |
11 | !endif |
12 | 12 | ||
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 | 18 | ||
19 | !if $job2!=save |
19 | !if $job2!=save |
20 | !if $filename!=$empty and $old_date=$empty |
20 | !if $filename!=$empty and $old_date=$empty |
21 | !read wimshome/log/classes/$wims_class/cdt/def/$filename |
21 | !read wimshome/log/classes/$wims_class/cdt/def/$filename |
22 | !if yes isin $date_exist |
22 | !if yes isin $date_exist |
23 | jdesc=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.work |
23 | jdesc=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.work |
24 | jday=!char 7 to 8 of $filename |
24 | jday=!char 7 to 8 of $filename |
25 | jmonth=!char 5 to 6 of $filename |
25 | jmonth=!char 5 to 6 of $filename |
26 | jyear=!char 1 to 4 of $filename |
26 | jyear=!char 1 to 4 of $filename |
27 | jdate=!char 1 to 8 of $filename |
27 | jdate=!char 1 to 8 of $filename |
28 | nbredevoir=!itemcnt $date_todo |
28 | nbredevoir=!itemcnt $date_todo |
29 | !if $nbredevoir>0 |
29 | !if $nbredevoir>0 |
30 | !for i=1 to $nbredevoir |
30 | !for i=1 to $nbredevoir |
31 | ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i |
31 | ddesc$i=!record 0 of wimshome/log/classes/$wims_class/cdt/src/$filename.todo$i |
32 | tmp=!item $i of $date_todo |
32 | tmp=!item $i of $date_todo |
33 | dday$i=!char 7 to 8 of $tmp |
33 | dday$i=!char 7 to 8 of $tmp |
34 | dmonth$i=!char 5 to 6 of $tmp |
34 | dmonth$i=!char 5 to 6 of $tmp |
35 | dyear$i=!char 1 to 4 of $tmp |
35 | dyear$i=!char 1 to 4 of $tmp |
36 | ddate$i=!char 1 to 8 of $tmp |
36 | ddate$i=!char 1 to 8 of $tmp |
37 | !next i |
37 | !next i |
38 | !endif |
38 | !endif |
39 | s_nbdevoir=$nbredevoir |
39 | s_nbdevoir=$nbredevoir |
40 | old_date=$filename |
40 | old_date=$filename |
- | 41 | !endif |
|
- | 42 | !reset filename |
|
- | 43 | !endif |
|
- | 44 | !exit |
|
41 | !endif |
45 | !endif |
42 | !reset filename |
- | |
43 | !endif |
- | |
44 | !exit |
- | |
45 | !endif |
- | |
46 | 46 | ||
47 | !if $jquery_defined=yes |
47 | !if $jquery_defined=yes |
48 | jyear=!char 1 to 4 of $jdate |
48 | jyear=!char 1 to 4 of $jdate |
49 | jmonth=!char 5 to 6 of $jdate |
49 | jmonth=!char 5 to 6 of $jdate |
50 | jday=!char 7 to 8 of $jdate |
50 | jday=!char 7 to 8 of $jdate |
51 | !endif |
51 | !endif |
52 | jmonth=!char 2,3 of $[abs(floor($jmonth))+100] |
52 | jmonth=!char 2,3 of $[abs(floor($jmonth))+100] |
53 | jday=!char 2,3 of $[abs(floor($jday))+100] |
53 | jday=!char 2,3 of $[abs(floor($jday))+100] |
54 | jyear=!char -4 to -1 of $[abs(floor($jyear))+100000] |
54 | jyear=!char -4 to -1 of $[abs(floor($jyear))+100000] |
55 | !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \ |
55 | !if $jday>=1 and $jday<=31 and $jmonth>=1 and $jmonth<=12 \ |
56 |
|
56 | and N notin $jmonth$jday$jyear |
57 | !! |
57 | !! and $jyear$jmonth$jday<=$class_expiration |
58 | !! |
58 | !! and $jyear$jmonth$jday>=$class_creation |
59 | 59 | ||
60 | jour=$jyear$jmonth$jday |
60 | jour=$jyear$jmonth$jday |
61 | !else |
61 | !else |
62 | error=bad_day |
62 | error=bad_day |
63 | !exit |
63 | !exit |
64 | !endif |
64 | !endif |
65 | !reset date_exist |
65 | !reset date_exist |
66 | !read wimshome/log/classes/$wims_class/cdt/def/$jour |
66 | !read wimshome/log/classes/$wims_class/cdt/def/$jour |
67 | !if yes isin $date_exist and $jour!=$old_date |
67 | !if yes isin $date_exist and $jour!=$old_date |
68 | error=day_exists |
68 | error=day_exists |
69 | !exit |
69 | !exit |
70 | !endif |
70 | !endif |
71 | 71 | ||
72 | ltjdevoir=$empty |
72 | ltjdevoir=$empty |
73 | !if $s_nbdevoir>0 |
73 | !if $s_nbdevoir>0 |
74 | !for i=1 to $s_nbdevoir |
74 | !for i=1 to $s_nbdevoir |
75 | !if $jquery_defined=yes |
75 | !if $jquery_defined=yes |
76 | dyear$i=!char 1 to 4 of $(ddate$i) |
76 | dyear$i=!char 1 to 4 of $(ddate$i) |
77 | dmonth$i=!char 5 to 6 of $(ddate$i) |
77 | dmonth$i=!char 5 to 6 of $(ddate$i) |
78 | dday$i=!char 7 to 8 of $(ddate$i) |
78 | dday$i=!char 7 to 8 of $(ddate$i) |
79 | !endif |
79 | !endif |
80 | dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100] |
80 | dmonth=!char 2,3 of $[abs(floor($(dmonth$i)))+100] |
81 | dday=!char 2,3 of $[abs(floor($(dday$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] |
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 \ |
83 | !if $dday>=1 and $dday<=31 and $dmonth>=1 and $dmonth<=12 \ |
84 |
|
84 | and $dyear$dmonth$dday>$jour \ |
85 |
|
85 | and N notin $dmonth$dday$dyear |
86 | !! |
86 | !! and $dyear$dmonth$dday<=$class_expiration |
87 | !! |
87 | !! and $dyear$dmonth$dday>=$class_creation |
88 | jdevoir$i=$dyear$dmonth$dday |
88 | jdevoir$i=$dyear$dmonth$dday |
89 | !else |
89 | !else |
90 | error=bad_jday |
90 | error=bad_jday |
91 | !exit |
91 | !exit |
92 | !endif |
92 | !endif |
93 | ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir |
93 | ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir |
94 | !next i |
94 | !next i |
95 | tmp=!listuniq $ltjdevoir |
95 | tmp=!listuniq $ltjdevoir |
96 | tmp1=!itemcnt $tmp |
96 | tmp1=!itemcnt $tmp |
97 | tmp2=!itemcnt $ltjdevoir |
97 | tmp2=!itemcnt $ltjdevoir |
98 | !if $tmp1!=$tmp2 |
98 | !if $tmp1!=$tmp2 |
99 | error=same_devoir |
99 | error=same_devoir |
100 | !exit |
100 | !exit |
101 | !endif |
101 | !endif |
102 | !endif |
102 | !endif |
103 | 103 | ||
104 | !if $old_date!=$empty |
104 | !if $old_date!=$empty |
105 | !sh rm -f $wims_home/log/classes/$wims_class/cdt/src/$old_date.*;\ |
105 | !sh rm -f $wims_home/log/classes/$wims_class/cdt/src/$old_date.*;\ |
106 | rm -f $wims_home/log/classes/$wims_class/cdt/def/$old_date; |
106 | rm -f $wims_home/log/classes/$wims_class/cdt/def/$old_date; |
107 | !endif |
107 | !endif |
108 | ltjdevoir=$empty |
108 | ltjdevoir=$empty |
109 | !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.work $jdesc |
109 | !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.work $jdesc |
110 | s2file=$wims_home/s2/$wims_session/$jour |
110 | s2file=$wims_home/s2/$wims_session/$jour |
Line 117... | Line 117... | ||
117 | !exit\ |
117 | !exit\ |
118 | \ |
118 | \ |
119 | :content |
119 | :content |
120 | 120 | ||
121 | !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.work $s2file.tmp;\ |
121 | !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.work $s2file.tmp;\ |
122 | cat $s2file.tmp >> $s2file;\ |
122 | cat $s2file.tmp >> $s2file;\ |
123 | echo "!exit" >> $s2file; |
123 | echo "!exit" >> $s2file; |
124 | 124 | ||
125 | !if $s_nbdevoir>0 |
125 | !if $s_nbdevoir>0 |
126 | nb=0 |
126 | nb=0 |
127 | !for i=1 to $s_nbdevoir |
127 | !for i=1 to $s_nbdevoir |
128 | !if $(ddesc$i)!=$empty |
128 | !if $(ddesc$i)!=$empty |
129 | nb=$[$nb+1] |
129 | nb=$[$nb+1] |
130 | !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.todo$nb $(ddesc$i) |
130 | !writefile wimshome/log/classes/$wims_class/cdt/src/$jour.todo$nb $(ddesc$i) |
131 | !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.todo$nb $s2file.tmp;\ |
131 | !sh $wims_home/bin/msg2wims $wims_home/log/classes/$wims_class/cdt/src/$jour.todo$nb $s2file.tmp;\ |
132 | echo ":todo$nb" >> $s2file;\ |
132 | echo ":todo$nb" >> $s2file;\ |
133 | cat $s2file.tmp >> $s2file;\ |
133 | cat $s2file.tmp >> $s2file;\ |
134 | echo "!exit" >> $s2file; |
134 | echo "!exit" >> $s2file; |
135 | ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir |
135 | ltjdevoir=!append item $(jdevoir$i) to $ltjdevoir |
136 | !endif |
136 | !endif |
137 | !next i |
137 | !next i |
138 | !endif |
138 | !endif |
139 | 139 | ||
140 | !setdef !set date_todo=$ltjdevoir in wimshome/s2/$wims_session/$jour |
140 | !setdef !set date_todo=$ltjdevoir in wimshome/s2/$wims_session/$jour |
141 | !sh rm $s2file.tmp;\ |
141 | !sh rm $s2file.tmp;\ |
142 | mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour; |
142 | mv $s2file $wims_home/log/classes/$wims_class/cdt/def/$jour; |