Rev 12555 | Rev 16148 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 12555 | Rev 15569 | ||
---|---|---|---|
Line 23... | Line 23... | ||
23 | !reset exam_$jj |
23 | !reset exam_$jj |
24 | !endif |
24 | !endif |
25 | !! jj correspond to exos in an exam |
25 | !! jj correspond to exos in an exam |
26 | !if $(exam$(i)_$jj)!=$empty |
26 | !if $(exam$(i)_$jj)!=$empty |
27 | !reset exam$(i)_$jj |
27 | !reset exam$(i)_$jj |
- | 28 | !endif |
|
- | 29 | !if $(sess_$jj)!=$empty |
|
- | 30 | !reset sess_$jj |
|
28 | !endif |
31 | !endif |
29 | !next |
32 | !next |
30 | !next |
33 | !next |
31 | 34 | ||
32 | sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam |
35 | sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam |
33 | !if $sc=$empty |
36 | !if $sc=$empty |
34 | !exit |
37 | !exit |
35 | !endif |
38 | !endif |
36 | nsc=!linecnt $sc |
39 | nsc=!linecnt $sc |
37 | - | ||
38 | 40 | ||
39 | !for i=1 to $nsc |
41 | !for i=1 to $nsc |
40 | l=!line $i of $sc |
42 | l=!line $i of $sc |
41 | !distribute words $l into e_,s_,t__,T_,i_,S_,t_ |
43 | !distribute words $l into e_,s_,t__,T_,i_,S_,t_ |
42 | !if $S_=0 |
44 | !if $S_=0 |
43 | !reset jj |
45 | !reset jj |
44 | !else |
46 | !else |
45 | !set jj=!positionof item $S_ in $checksessions |
47 | !set jj=!positionof item $S_ in $checksessions |
46 | !set score$(jj)_$e_=$s_ |
48 | !set score$(jj)_$e_=$s_ |
47 | !set exam_$jj=!append item $e_ to $(exam_$jj) |
49 | !set exam_$jj=!append item $e_ to $(exam_$jj) |
- | 50 | !set sess_$e_=!append item $jj to $(sess_$e_) |
|
48 | !set exam_$jj=!listuniq $(exam_$jj) |
51 | !set exam_$jj=!listuniq $(exam_$jj) |
49 | !if $s_ issametext 00 |
52 | !if $s_ issametext 00 |
50 | start$(jj)_$e_=$t_ |
53 | start$(jj)_$e_=$t_ |
51 | dur$(jj)_$e_=$T_ |
54 | dur$(jj)_$e_=$T_ |
52 | !endif |
55 | !endif |