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