Rev 1988 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
1988 | bpr | 1 | !!!###language independant |
2 | |||
1170 | bpr | 3 | !read adm/css.phtml |
1051 | bpr | 4 | !header1 |
1885 | bpr | 5 | <script type="text/javascript" src="scripts/js/wz_tooltip.js" language="Javascript"></script> |
23 | reyssat | 6 | !read names.phtml |
7 | |||
8 | !if $cmd=help |
||
9 | !read help.phtml |
||
10 | !goto end |
||
11 | !endif |
||
12 | |||
13 | !if $job!=$empty and $job!=sheets |
||
14 | !read $job.phtml |
||
15 | !goto end |
||
16 | !endif |
||
17 | |||
1336 | bpr | 18 | !read adm/title.phtml 1\ |
1587 | bpr | 19 | $wims_classname - $wims_institutionname\ |
20 | $wims_name_part_list |
||
1336 | bpr | 21 | |
23 | reyssat | 22 | !if $error!=$empty |
23 | <p> |
||
24 | !read msg.phtml |
||
25 | <p> |
||
1587 | bpr | 26 | !href module=home $wims_name_class_home |
23 | reyssat | 27 | . <p> |
28 | !goto end |
||
29 | !endif |
||
30 | |||
31 | !if $usercnt==0 |
||
1587 | bpr | 32 | $name_noyetparticipant |
23 | reyssat | 33 | [ |
1963 | guerimand | 34 | !if $wims_typename!=class |
35 | !href module=adm/class/reguser&step=1 $wims_name_addparticipant |
||
36 | !else |
||
37 | !href module=adm/class/reguser&step=1 $wims_name_addstudent |
||
38 | !endif |
||
23 | reyssat | 39 | ] |
1642 | bpr | 40 | |
41 | [ |
||
42 | !href cmd=reply&job=csv $wims_name_csv |
||
43 | ] |
||
44 | |||
23 | reyssat | 45 | !else |
46 | <center> |
||
47 | !set deleted=!sh cd $wims_home/log/classes/$wims_class/.users; ls .[0-9a-zA-Z]* 2>/dev/null |
||
48 | !set deleted=!trim $deleted |
||
49 | [ |
||
1963 | guerimand | 50 | !if $wims_typename!=class |
51 | !href module=adm/class/reguser&step=1 $wims_name_addparticipant |
||
52 | !else |
||
53 | !href module=adm/class/reguser&step=1 $wims_name_addstudent |
||
54 | !endif |
||
1343 | bpr | 55 | ] [ |
1587 | bpr | 56 | !href cmd=reply&job=csv $wims_name_csv |
23 | reyssat | 57 | ] |
58 | !if $deleted!=$empty |
||
59 | [ |
||
1587 | bpr | 60 | !href cmd=reply&job=recover $name_partdeleted |
23 | reyssat | 61 | ] |
62 | !endif |
||
63 | </center> |
||
64 | <p>$table_header |
||
65 | !if $job_affi=notes |
||
1587 | bpr | 66 | <caption>$name_formula2</caption> |
23 | reyssat | 67 | !else |
68 | !let tmp=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheets |
||
69 | !let tmp=!values v for v=1 to $tmp |
||
70 | !let showsheet=!listintersect $showsheet and $tmp |
||
71 | !if $job_affi=qualite |
||
1587 | bpr | 72 | <caption>$name_qualitygot</caption> |
23 | reyssat | 73 | !else |
1587 | bpr | 74 | <caption>$name_percentagedone</caption> |
23 | reyssat | 75 | !endif |
76 | !endif |
||
77 | !if $manual>0 and $job_affi=notes |
||
1587 | bpr | 78 | $table_hdtr<th rowspan=2>$wims_name_lastname, $wims_name_firstname</th> |
79 | <th colspan=3>$name_Average</th> |
||
23 | reyssat | 80 | !for j in $showsheet |
81 | !if E isin $j |
||
82 | !set k=!char 2 to -1 of $j |
||
1587 | bpr | 83 | <th rowspan=2><small>$name_Exam $k</small></th> |
23 | reyssat | 84 | !else |
85 | <th rowspan=2> |
||
86 | <small> |
||
1888 | bpr | 87 | !set s=!record $j of wimshome/log/classes/$wims_class/sheets/.sheets |
88 | !set s=!line 3 of $s |
||
1587 | bpr | 89 | !href cmd=reply&job=showsheet&numshowsheet=$j $name_Sheet $j |
1888 | bpr | 90 | <a onmouseover="Tip('$s',$tooltip_parm)">$picto</a> |
23 | reyssat | 91 | </small></th> |
92 | !endif |
||
93 | !next j |
||
1877 | bpr | 94 | $table_hdtr<th><small>$(name_manual_notes[1])</small></th> |
95 | <th><small>$(name_manual_notes[2])</small></th><th><small>$(name_manual_notes[3])</small> |
||
23 | reyssat | 96 | !else |
1587 | bpr | 97 | $table_hdtr<th>$wims_name_lastname, $wims_name_firstname</th> |
23 | reyssat | 98 | !if $job_affi=notes |
1587 | bpr | 99 | <th>$name_Average</th> |
23 | reyssat | 100 | !endif |
101 | !for j in $showsheet |
||
102 | !if E isin $j |
||
103 | !set k=!char 2 to -1 of $j |
||
1587 | bpr | 104 | <th><small>$name_Exam $k</small></th> |
23 | reyssat | 105 | !else |
106 | <th><small> |
||
1587 | bpr | 107 | !href cmd=reply&job=showsheet&numshowsheet=$j $name_Sheet $j |
23 | reyssat | 108 | </small></th> |
109 | !endif |
||
110 | !next j |
||
111 | !endif |
||
112 | !distribute item 0,0,0 into mean_tea,mean_auto,mean_glob |
||
113 | !distribute item 0,0,0 into cnt_tea,cnt_auto,cnt_glob |
||
114 | !for i=1 to $usercnt |
||
115 | !set uu=!record $i of wimshome/log/classes/$wims_class/.userlist |
||
116 | !distribute items $uu into lastname,firstname,uu |
||
117 | !set UU=!hex $uu |
||
118 | $table_tr<td> |
||
119 | !href cmd=reply&job=getuser&getuser=$uu $lastname, $firstname |
||
120 | !read userscore |
||
121 | !if $manual>0 and $job_affi=notes |
||
122 | !set glob=$[rint($manual*$(manual_$UU)+(100-$manual)*($per))/100] |
||
1893 | bpr | 123 | !if $glob>0 |
124 | !read adm/class/colors $[ceil($glob*10/$scoremax)] |
||
125 | <td style=$style_note>$glob |
||
126 | !else |
||
1895 | bpr | 127 | <td align="center">-- |
1893 | bpr | 128 | !endif |
129 | </td> |
||
130 | !if $(manual_$UU)>0 |
||
131 | !read adm/class/colors $[ceil($(manual_$UU)*10/$scoremax)] |
||
132 | <td style=$style_note>$(manual_$UU) |
||
133 | !else |
||
1895 | bpr | 134 | <td align="center">-- |
1893 | bpr | 135 | !endif |
136 | </td> |
||
137 | !if $per>0 |
||
138 | !read adm/class/colors $[ceil($per*10/$scoremax)] |
||
139 | <td style=$style_note>$per |
||
140 | !else |
||
1895 | bpr | 141 | <td align="center">-- |
1893 | bpr | 142 | !endif |
143 | </td> |
||
23 | reyssat | 144 | !distribute item $[$mean_glob+$glob],$[$mean_tea+$(manual_$UU)] into mean_glob,mean_tea |
145 | !if $glob>0 |
||
146 | !advance cnt_glob |
||
147 | !if $(manual_$UU)>0 |
||
148 | !advance cnt_tea |
||
149 | !endif |
||
150 | !if $per>0 |
||
151 | !advance cnt_auto |
||
152 | !endif |
||
153 | !endif |
||
154 | !else |
||
155 | !if $job_affi=notes |
||
156 | !if $per>0 |
||
1895 | bpr | 157 | !read adm/class/colors $[ceil($per*10/$scoremax)] |
1893 | bpr | 158 | <td style=$style_note>$per |
23 | reyssat | 159 | !advance cnt_auto |
160 | !advance cnt_glob |
||
1893 | bpr | 161 | !else |
1895 | bpr | 162 | <td align="center">-- |
23 | reyssat | 163 | !endif |
1893 | bpr | 164 | </td> |
23 | reyssat | 165 | !endif |
166 | !endif |
||
167 | !set mean_auto=$[$mean_auto+$per] |
||
168 | !for j in $showsheet |
||
169 | !if E isin $j |
||
170 | !set k=!char 2 to -1 of $j |
||
1999 | bpr | 171 | !set p_=$[rint(10*$scoremax*$(es_$k))/100] |
23 | reyssat | 172 | !if NaN isin $p_ |
173 | !set p_=0 |
||
174 | !endif |
||
1988 | bpr | 175 | !if $p_>0 |
1893 | bpr | 176 | !read adm/class/colors $[ceil($p_*10/$scoremax)] |
177 | <td style=$style_note>$p_ |
||
1988 | bpr | 178 | !else |
1999 | bpr | 179 | <td align="center">$p_ |
1988 | bpr | 180 | !endif |
1893 | bpr | 181 | </td> |
23 | reyssat | 182 | !else |
183 | !set p_=!line $j of $percents |
||
184 | !distribute words $p_ into p1,p2 |
||
185 | !if $job_affi=notes |
||
186 | !if $p2!=$empty |
||
1603 | bpr | 187 | !distribute item $[$p1/100],$[$p2/10] into x_,y_ |
23 | reyssat | 188 | !set p_=$[rint(100*$scoremax*$(f_$j))/100] |
189 | !else |
||
190 | !set p_=0 |
||
191 | !endif |
||
1893 | bpr | 192 | !if $p_>0 |
193 | !read adm/class/colors $[ceil(10*$p_/$scoremax)] |
||
194 | <td style=$style_note>$p_ |
||
195 | !else |
||
1895 | bpr | 196 | <td align="center">-- |
1893 | bpr | 197 | !endif |
198 | </td> |
||
23 | reyssat | 199 | !else |
200 | !if qualite iswordof $job_affi |
||
201 | !set p_=$p2 |
||
1893 | bpr | 202 | !if $p_>0 |
203 | !read adm/class/colors $[ceil($p_)] |
||
204 | <td style=$style_note>$p_ |
||
205 | !else |
||
1895 | bpr | 206 | <td align="center">-- |
1893 | bpr | 207 | !endif |
208 | </td> |
||
23 | reyssat | 209 | !else |
210 | !set p_=$p1 |
||
1893 | bpr | 211 | !if $p_>0 |
212 | !read adm/class/colors $[ceil($p_/10)] |
||
213 | <td style=$style_note>$p_ % |
||
214 | !else |
||
1895 | bpr | 215 | <td align="center">-- |
1893 | bpr | 216 | </td> |
217 | !endif |
||
23 | reyssat | 218 | !endif |
219 | !if $p2=$empty |
||
220 | !set $p_=0 |
||
221 | !endif |
||
222 | !endif |
||
223 | !endif |
||
224 | !set per_$j=$[$(per_$j)+$p_] |
||
225 | !if $p_>0 |
||
226 | !advance cnt_$j |
||
227 | !endif |
||
228 | !next j |
||
229 | !next i |
||
230 | !distribute item $[rint(100*$mean_auto/$usercnt)/100],\ |
||
231 | $[rint(100*$mean_tea/$usercnt)/100],\ |
||
232 | $[rint(100*$mean_glob/$usercnt)/100] into m_auto,m_tea,m_glob |
||
1587 | bpr | 233 | $table_hdtr<td align=center><b>$name_classAverage</b></td> |
23 | reyssat | 234 | !if $job_affi=notes |
1893 | bpr | 235 | !if $manual>0 |
236 | !if $m_glob >0 |
||
237 | !read adm/class/colors $[ceil($m_glob*10/$scoremax)] |
||
238 | <td style=$style_note>$m_glob |
||
239 | !else |
||
240 | <td align=center>-- |
||
241 | !endif |
||
242 | </td> |
||
243 | !if $m_tea >0 |
||
244 | !read adm/class/colors $[ceil($m_tea*10/$scoremax)] |
||
245 | <td style=$style_note>$m_tea |
||
246 | !else |
||
247 | <td align=center>-- |
||
248 | !endif |
||
249 | </td> |
||
250 | !if $m_auto>0 |
||
251 | !read adm/class/colors $[ceil($m_auto*10/$scoremax)] |
||
252 | <td style=$style_note>$m_auto |
||
253 | !else |
||
254 | <td align=center>-- |
||
255 | !endif |
||
256 | </td> |
||
257 | !else |
||
258 | !if $m_auto>0 |
||
1904 | bpr | 259 | !read adm/class/colors $[ceil($m_auto*10/$scoremax)] |
1893 | bpr | 260 | <td style=$style_note>$m_auto |
261 | !else |
||
262 | <td align=center>-- |
||
263 | !endif |
||
264 | </td> |
||
265 | !endif |
||
23 | reyssat | 266 | !endif |
267 | !for j in $showsheet |
||
1893 | bpr | 268 | !if $[rint(100*$(per_$j)/max(1,$usercnt))/100]>0 |
269 | !if $job_affi=points |
||
270 | !read adm/class/colors $[ceil($(per_$j)/max(1,$usercnt)/10)] |
||
271 | <td style=$style_note>$[rint(100*$(per_$j)/max(1,$usercnt))/100] % |
||
272 | !else |
||
1904 | bpr | 273 | !read adm/class/colors $[ceil($(per_$j)/max(1,$usercnt)*10/$scoremax)] |
1893 | bpr | 274 | <td style=$style_note>$[rint(100*$(per_$j)/max(1,$usercnt))/100] |
275 | !endif |
||
276 | !else |
||
277 | <td align=center>-- |
||
278 | !endif |
||
279 | </td> |
||
23 | reyssat | 280 | !next j |
281 | !if $cnt_glob>0 |
||
282 | !distribute item $[rint(100*$mean_auto/max(1,$cnt_auto))/100],\ |
||
283 | $[rint(100*$mean_tea/max(1,$cnt_tea))/100],\ |
||
284 | $[rint(100*$mean_glob/max(1,$cnt_glob))/100] into m_auto,m_tea,m_glob |
||
1587 | bpr | 285 | $table_hdtr<td align=center><b>$name_posAverage</b></td> |
23 | reyssat | 286 | !if $manual>0 |
1893 | bpr | 287 | !if $m_glob>0 |
288 | !read adm/class/colors $[ceil($m_glob*10/$scoremax)] |
||
289 | <td style=$style_note>$m_glob |
||
290 | !else |
||
291 | <td align=center>-- |
||
292 | !endif |
||
293 | </td> |
||
294 | !if $m_tea>0 |
||
295 | !read adm/class/colors $[ceil($m_tea*10/$scoremax)] |
||
296 | <td style=$style_note>$m_tea |
||
297 | !else |
||
298 | <td align=center>-- |
||
299 | !endif |
||
300 | </td> |
||
301 | !if $m_auto>0 |
||
302 | !read adm/class/colors $[ceil($m_auto*10/$scoremax)] |
||
303 | <td style=$style_note>$m_auto |
||
304 | !else |
||
305 | <td align=center>-- |
||
306 | !endif |
||
307 | </td> |
||
23 | reyssat | 308 | !else |
1893 | bpr | 309 | !if $m_auto>0 |
310 | !read adm/class/colors $[ceil($m_auto*10/$scoremax)] |
||
311 | <td style=$style_note>$m_auto |
||
312 | !else |
||
313 | <td align=center>-- |
||
314 | !endif |
||
315 | </td> |
||
23 | reyssat | 316 | !endif |
317 | !for j in $showsheet |
||
1893 | bpr | 318 | !if $[rint(100*$(per_$j)/max(1,$(cnt_$j)))/100]>0 |
319 | !read adm/class/colors $[ceil($(per_$j)/max(1,$(cnt_$j))*10/$scoremax)] |
||
320 | <td style=$style_note>$[rint(100*$(per_$j)/max(1,$(cnt_$j)))/100] |
||
321 | !else |
||
322 | <td align=center>-- |
||
323 | !endif |
||
324 | </td> |
||
23 | reyssat | 325 | !next j |
326 | !endif |
||
1893 | bpr | 327 | |
23 | reyssat | 328 | $table_end |
1587 | bpr | 329 | <p>$name_click</p> |
923 | bpr | 330 | !if $activecnt>1 |
23 | reyssat | 331 | <p> |
332 | !form reply |
||
333 | <input type=hidden name=job value=sheets> |
||
334 | !set wims_formselect_switch=multiple size=$[min($activecnt,6)] |
||
335 | <table border=0> |
||
1587 | bpr | 336 | <tr><td>$name_pickup: |
923 | bpr | 337 | </td><td> |
23 | reyssat | 338 | !reset tmp |
1627 | bpr | 339 | !set seq_open=!defof sequence_open in wimshome/log/classes/$wims_class/seq/.def |
23 | reyssat | 340 | !for i=1 to $activecnt |
341 | !set sh=!line $i of $activesheets |
||
342 | !set se=!item 1 of $sh |
||
1627 | bpr | 343 | !if $seq_open!=yes |
344 | !set ti=!item 3 to -1 of $sh |
||
345 | !set ti=!replace internal , by , in $ti |
||
346 | !set tmp=!append item $se: $ti to $tmp |
||
347 | !else |
||
348 | !set ti=!item 4 to -1 of $sh |
||
349 | !set ti=!replace internal , by , in $ti |
||
350 | !set seq=!item 3 of $sh |
||
351 | !set tmp=!append item $seq/$se: $ti to $tmp |
||
352 | !endif |
||
23 | reyssat | 353 | !next i |
354 | !set ash=$activesh |
||
355 | !for i=1 to $eactivecnt |
||
356 | !set tt=!item $i of $activexams |
||
357 | !set l=!record $tt of wimshome/log/classes/$wims_class/exams/.exams |
||
358 | !set l=!line 4 of $l |
||
1162 | bpr | 359 | !set l=!replace internal , by , in $l |
1587 | bpr | 360 | !set tmp=!append item $name_Exam $tt: $l to $tmp |
23 | reyssat | 361 | !set ash=!append item E$tt to $ash |
362 | !next i |
||
363 | !formselect showsheet list $ash prompt $tmp |
||
923 | bpr | 364 | </td> |
1587 | bpr | 365 | <td><input type=submit value="$wims_name_Show"></td> |
923 | bpr | 366 | </tr></table> |
23 | reyssat | 367 | </form> |
368 | !endif |
||
923 | bpr | 369 | <p> |
1587 | bpr | 370 | $name_post |
923 | bpr | 371 | !if $job_affi=notes |
1587 | bpr | 372 | !href cmd=reply&job_affi=qualite $(name_affi[1]) |
373 | , |
||
374 | !href cmd=reply&job_affi=points $(name_affi[2]) |
||
923 | bpr | 375 | !else |
376 | !if $job_affi=qualite |
||
1587 | bpr | 377 | !href cmd=reply&job_affi=notes $(name_affi[3]) |
378 | , |
||
379 | !href cmd=reply&job_affi=points $(name_affi[2]) |
||
923 | bpr | 380 | !else |
1587 | bpr | 381 | !href cmd=reply&job_affi=notes $(name_affi[3]) |
382 | , |
||
383 | !href cmd=reply&job_affi=qualite $(name_affi[1]) |
||
923 | bpr | 384 | !endif |
385 | !endif |
||
1587 | bpr | 386 | . </p> |
1603 | bpr | 387 | |
23 | reyssat | 388 | !endif (usercnt=0?) |
1293 | bpr | 389 | |
1868 | bpr | 390 | !set wims_menu_items=!append line sendmail,1,module=adm/class/sendmail\ |
391 | photoboard,1,module=adm/class/photoboard\ |
||
1587 | bpr | 392 | addstudent,1,module=adm/class/reguser&step=1\ |
1323 | guerimand | 393 | csv,1,cmd=reply&job=csv\ |
1868 | bpr | 394 | ,0,\ |
1323 | guerimand | 395 | formula,1,cmd=reply&job=formula&formula=prep\ |
396 | grades,1,module=adm/class/grades\ |
||
1336 | bpr | 397 | to $wims_menu_items |
1868 | bpr | 398 | !if ($wims_supertype<4 and $wims_typename=class) or ($wims_supertype=4 and $wims_typename iswordof course program) |
399 | !set wims_menu_items=!append line livret,1,module=adm/class/livret\ |
||
400 | to $wims_menu_items |
||
401 | !endif |
||
1323 | guerimand | 402 | |
932 | bpr | 403 | !if $usercnt!=0 |
1868 | bpr | 404 | !set wims_menu_items=!append line ,0,\ |
405 | class_stat,1,module=adm/class/stat\ |
||
1293 | bpr | 406 | activity,1,module=adm/class/activity\ |
1336 | bpr | 407 | to $wims_menu_items |
932 | bpr | 408 | !endif |
409 | |||
23 | reyssat | 410 | !if $manual>0 |
1587 | bpr | 411 | <p>$name_manual_explanation</p> |
412 | <p><center> |
||
413 | $(name_manual_notes[1]) = $[$manual/100]* $(name_manual_notes[2]) + $[1-$manual/100]* $(name_manual_notes[3]) |
||
1162 | bpr | 414 | </center> <p> |
23 | reyssat | 415 | !endif |
416 | |||
417 | :end |
||
418 | !tail |
||
419 | |||
420 | !reset job,showsheet,getuser,getraw,delprep,deluser,formula,abandon,reg,\ |
||
233 | bpr | 421 | passcheck |