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