Rev 18144 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | |
1587 | bpr | 2 | !read adm/title.phtml 1\ |
3 | $classname\ |
||
4 | $name_title_examcheck |
||
23 | reyssat | 5 | |
6 | !if _check isin $session |
||
12465 | bpr | 7 | !set error=bad_op |
23 | reyssat | 8 | !endif |
9 | |||
10 | !if $error!=$empty |
||
15049 | obado | 11 | <div class="wims_msg alert"> |
12 | !read lang/msg.phtml.$moduclass_lang |
||
12465 | bpr | 13 | </div> |
23 | reyssat | 14 | !else |
12465 | bpr | 15 | !if $checksessions=$empty |
15049 | obado | 16 | <p class="no_exampart">$name_no_exampart</p> |
12465 | bpr | 17 | !else |
16378 | guerimand | 18 | |
19 | !if $class_examscore_withoutip!=yes and $scorereducedbyip=1 |
||
20 | <div class="wims_msg info">$name_msg_exam_withip</div> |
||
21 | !endif |
||
22 | |||
15049 | obado | 23 | <p class="exampart">$name_exampart</p> |
12465 | bpr | 24 | $table_header |
25 | $table_hdtr<th rowspan="2">$name_Session</th><th rowspan="2">$name_Exam</th><th rowspan="2">$name_Score<span class="small">/$scoremax</span></th> |
||
26 | <th colspan="$maxexo">$name_Exercise </th> |
||
27 | <th rowspan="2">$name_Start</th> |
||
16386 | guerimand | 28 | <th rowspan="2">$name_Duration</th> |
16846 | guerimand | 29 | !if $wims_user=supervisor |
30 | <th rowspan="2">$wims_name_sendbug</th> |
||
31 | !endif |
||
16386 | guerimand | 32 | </tr> |
12465 | bpr | 33 | $table_hdtr |
34 | !for i=1 to $maxexo |
||
35 | <th>$i</th> |
||
36 | !next i |
||
37 | </tr> |
||
38 | !for ses in $checksessions |
||
39 | !set pos_ses=!positionof item $ses in $checksessions |
||
40 | !for x in $(exam_$(pos_ses)) |
||
15559 | bpr | 41 | !set tmp=!record $x of wimshome/log/classes/$wims_class/exams/.exams |
18148 | bpr | 42 | !! ------test if exam is hidden for this user |
18144 | bpr | 43 | !if $wims_user!=supervisor |
18148 | bpr | 44 | !set tmp_exam_status=!getsheetstatus exam=$(pos_ses) |
18144 | bpr | 45 | !endif |
16006 | guerimand | 46 | !! -----end test |
18148 | bpr | 47 | !if $tmp_exam_status!=3 |
16006 | guerimand | 48 | !!titre |
49 | !set tmp=!line 4 of $tmp |
||
50 | $table_tr<td class="small">$ses</td> |
||
51 | <td>$x: $tmp</td> |
||
52 | !reset tmp |
||
16378 | guerimand | 53 | !! ----- manage of examscorewithoutip or not |
54 | !if $class_examscore_withoutip=yes |
||
55 | !let tsco=$(score$(pos_ses)_$x) |
||
56 | !let star=$empty |
||
57 | !else |
||
58 | !let tsco=$(scoreip$(pos_ses)_$x) |
||
59 | !if $(score$(pos_ses)_$x)!=$(scoreip$(pos_ses)_$x) |
||
60 | !let realtsco=$[rint(10*$(score$(pos_ses)_$x)*$scoremax)/100] |
||
61 | !let star=<div class="wims_tooltip">*<div class="wims_tooltiptext">$name_real_score</div></div> |
||
62 | !endif |
||
63 | !endif |
||
64 | !! ---- |
||
16773 | czzmrn | 65 | !read adm/class/colors $tsco |
16378 | guerimand | 66 | !let tsco=$[rint(10*$tsco*$scoremax)/100] |
67 | <td style=$style_note>$tsco$star</td> |
||
16006 | guerimand | 68 | !reset style_note |
69 | !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x |
||
70 | !for i=1 to $nbx |
||
16383 | guerimand | 71 | !!calculate in adm/class/userscore1 |
16006 | guerimand | 72 | !if $(Exam_$(x)_$(pos_ses)[$i])!=$empty |
73 | !set s=$(Exam_$(x)_$(pos_ses)[$i]) |
||
16771 | czzmrn | 74 | !set s_color=$[rint(10*$s/$scoremax)] |
16006 | guerimand | 75 | !if $s_color=0 |
76 | !set s_color=1 |
||
77 | !endif |
||
16772 | czzmrn | 78 | !read adm/class/colors $s_color,htmlcolor |
12465 | bpr | 79 | !else |
16006 | guerimand | 80 | !set s_color="" |
81 | !if $(duree$(pos_ses)_$x)=$empty |
||
82 | !set s=† |
||
83 | !else |
||
84 | !! ?? can ever be "exercice never tried" or just "exercice unfinished" |
||
85 | !set s=?? |
||
86 | !endif |
||
12465 | bpr | 87 | !endif |
16772 | czzmrn | 88 | <td class="wims_sheet_score"> |
16383 | guerimand | 89 | !if $i isitemof $(exo$(ses)$x) |
16772 | czzmrn | 90 | <span style="border-color:$note_color"> |
16383 | guerimand | 91 | !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $s |
16772 | czzmrn | 92 | </span> |
16383 | guerimand | 93 | !endif |
16867 | czzmrn | 94 | !reset note_color |
16006 | guerimand | 95 | </td> |
96 | !next i |
||
97 | !if $nbx<$maxexo |
||
98 | !for i=$[$nbx+1] to $maxexo |
||
99 | <td style="background-image:url(gifs/bg/crossgrey.gif)"> </td> |
||
100 | !next i |
||
12465 | bpr | 101 | !endif |
16006 | guerimand | 102 | <td class="small"> |
103 | !read date.phtml $(start$(pos_ses)_$x) |
||
12465 | bpr | 104 | </td> |
16006 | guerimand | 105 | <td class="small"> |
106 | !if $(duree$(pos_ses)_$x)!=$empty |
||
107 | !set tmp=!exec pari divrem($(duree$(pos_ses)_$x),60)~ |
||
108 | !item 1 of $tmp |
||
9470 | bpr | 109 | $ $ |
16006 | guerimand | 110 | !char 1 to 3 of $name_minutes |
9470 | bpr | 111 | $ $ |
16006 | guerimand | 112 | !item 2 of $tmp |
113 | !endif |
||
114 | </td> |
||
16846 | guerimand | 115 | !if $wims_user=supervisor |
116 | <td> |
||
16386 | guerimand | 117 | !! link for sendbug |
118 | !reset t |
||
119 | !for exo in $(exo$(ses)$x) |
||
120 | !let l=module=adm/sendbug&+logcheck=$x.$exo&+checkuser=$checkuser&+checksession=$ses&+logtype=exam $wims_name_Exercise $exo |
||
121 | !let t=!append line $l to $t |
||
122 | !next exo |
||
123 | !read js/dropdownbutton.phtml dropbutton_$(ses)_$x\ |
||
124 | $wims_name_sendbug\ |
||
125 | $t |
||
16846 | guerimand | 126 | </td> |
127 | !endif |
||
16006 | guerimand | 128 | </tr> |
12465 | bpr | 129 | !endif |
130 | !next x |
||
16386 | guerimand | 131 | !next ses |
12465 | bpr | 132 | $table_end |
133 | !endif |
||
23 | reyssat | 134 | !endif |
9351 | bpr | 135 | !if $wims_user!=supervisor |
12465 | bpr | 136 | !set wims_menu_items=!append line myscore,1,cmd=reply&job=getuser&getuser=$checkuser\ |
1587 | bpr | 137 | to $wims_menu_items |
9351 | bpr | 138 | !else |
12465 | bpr | 139 | !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\ |
9351 | bpr | 140 | to $wims_menu_items |
12465 | bpr | 141 | !read adm/class/getnextuser $wims_class,$checkuser,examcheck,checkuser |
142 | !set wims_menu_items=!append line itemsep,0,\ |
||
1643 | bpr | 143 | part_list,1,cmd=resume\ |
144 | to $wims_menu_items |
||
145 | !endif |