Rev 2926 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 2926 | Rev 3049 | ||
---|---|---|---|
1 | 1 | ||
2 | !read adm/title.phtml 1\ |
2 | !read adm/title.phtml 1\ |
3 | $classname\ |
3 | $classname\ |
4 | $name_title_examcheck |
4 | $name_title_examcheck |
5 | 5 | ||
6 | !if _check isin $session |
6 | !if _check isin $session |
7 | !set error=bad_op |
7 | !set error=bad_op |
8 | !goto msg |
8 | !goto msg |
9 | !endif |
9 | !endif |
10 | 10 | ||
11 | !if $error!=$empty |
11 | !if $error!=$empty |
12 | :msg |
12 | :msg |
13 | <p> |
13 | <p> |
14 | !read lang/msg.phtml.$moduclass_lang |
14 | !read lang/msg.phtml.$moduclass_lang |
15 | <p> |
15 | <p> |
16 | !else |
16 | !else |
17 | !if $checksessions=$empty |
17 | !if $checksessions=$empty |
18 | $name_no_exampart |
18 | $name_no_exampart |
19 | <p> |
19 | <p> |
20 | !else |
20 | !else |
21 | $name_exampart |
21 | $name_exampart |
22 | <p>$table_header |
22 | <p>$table_header |
23 | $table_hdtr<th rowspan="2">$name_Session</th><th rowspan="2">$name_Exam</th><th rowspan="2">$name_Score<small>/$scoremax</small></th> |
23 | $table_hdtr<th rowspan="2">$name_Session</th><th rowspan="2">$name_Exam</th><th rowspan="2">$name_Score<small>/$scoremax</small></th> |
24 | <th colspan="$maxexo">$name_Exercise </th><th rowspan="2">$name_Start</th></tr> |
24 | <th colspan="$maxexo">$name_Exercise </th><th rowspan="2">$name_Start</th></tr> |
25 | $table_hdtr |
25 | $table_hdtr |
26 | !for i=1 to $maxexo |
26 | !for i=1 to $maxexo |
27 | <th>$i</th> |
27 | <th>$i</th> |
28 | !next i |
28 | !next i |
29 | </tr> |
29 | </tr> |
30 | !for ses in $checksessions |
30 | !for ses in $checksessions |
31 | !for x in $(exam$ses) |
31 | !for x in $(exam$ses) |
32 | $table_tr<td><small>$ses</small></td> |
32 | $table_tr<td><small>$ses</small></td> |
33 | <td align=center>$x</td> |
33 | <td align="center">$x</td> |
34 | <td align=center>$[rint($(score$(ses)$x)*$scoremax)/10]</td> |
34 | <td align="center">$[rint($(score$(ses)$x)*$scoremax)/10]</td> |
35 | !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x |
35 | !let nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$x |
36 | !for i=1 to $nbx |
36 | !for i=1 to $nbx |
37 | <td align="center"> |
37 | <td align="center"> |
38 | !if $i isitemof $(exo$(ses)$x) |
38 | !if $i isitemof $(exo$(ses)$x) |
39 | !let s=!defof w_module_score in wimshome/log/classes/$wims_class/examlog/$checkuser/$ses/$x.$i |
39 | !let s=!defof w_module_score in wimshome/log/classes/$wims_class/examlog/$checkuser/$ses/$x.$i |
40 | !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $[rint($s*$scoremax)/10] |
40 | !href target=wims_check module=$module&cmd=new&job=examcheck&checkuser=$checkuser&checksession=$ses&checkexo=$x.$i&checkstep=1 $[rint($s*$scoremax)/10] |
41 | !else |
41 | !else |
42 | |
42 | |
43 | !endif |
43 | !endif |
44 | </td> |
44 | </td> |
45 | !next i |
45 | !next i |
46 | !if $nbx<$maxexo |
46 | !if $nbx<$maxexo |
47 | !for i=$[$nbx+1] to $maxexo |
47 | !for i=$[$nbx+1] to $maxexo |
48 | <td align="center" style="background-image:url(gifs/bg/crossgrey.gif)"> </td> |
48 | <td align="center" style="background-image:url(gifs/bg/crossgrey.gif)"> </td> |
49 | !next i |
49 | !next i |
50 | !endif |
50 | !endif |
51 | !next x |
51 | !next x |
52 | </td><td><small> |
52 | </td><td><small> |
53 | !read date.phtml $(start$(ses)$x) |
53 | !read date.phtml $(start$(ses)$x) |
54 | </small></td> |
54 | </small></td> |
55 | !next t |
55 | !next t |
56 | $table_end <p> |
56 | $table_end <p> |
57 | !endif |
57 | !endif |
58 | !endif |
58 | !endif |
59 | 59 | ||
60 | !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\ |
60 | !set wims_menu_items=!append line scores,1,cmd=reply&job=getuser&getuser=$checkuser\ |
61 | to $wims_menu_items |
61 | to $wims_menu_items |
62 | !if $wims_user=supervisor |
62 | !if $wims_user=supervisor |
63 | !set wims_menu_items=!append line ,0,\ |
63 | !set wims_menu_items=!append line ,0,\ |
64 | part_list,1,cmd=resume\ |
64 | part_list,1,cmd=resume\ |
65 | to $wims_menu_items |
65 | to $wims_menu_items |
66 | !endif |
66 | !endif |
67 | 67 |