Rev 9470 | Rev 9934 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 9470 | Rev 9719 | ||
---|---|---|---|
Line 18... | Line 18... | ||
18 | tmp=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$k |
18 | tmp=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$k |
19 | maxexo=$[max($maxexo,$tmp)] |
19 | maxexo=$[max($maxexo,$tmp)] |
20 | !next k |
20 | !next k |
21 | logdir=$wims_home/log/classes/$wims_class/examlog/$checkuser |
21 | logdir=$wims_home/log/classes/$wims_class/examlog/$checkuser |
22 | !if $checksession=$empty |
22 | !if $checksession=$empty |
23 | checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls; fi |
23 | checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls -tr; fi |
24 | checksessions=!words2items $checksessions |
24 | checksessions=!words2items $checksessions |
25 | !for ses in $checksessions |
25 | !for ses in $checksessions |
26 | exo=!sh cd $wims_home/log/classes/$wims_class/examlog/$checkuser/$ses; ls |
26 | exo=!sh cd $wims_home/log/classes/$wims_class/examlog/$checkuser/$ses; ls |
27 | exo$ses=!words2items $exo |
27 | exo$ses=!words2items $exo |
28 | exo=!words2lines $exo |
28 | exo=!words2lines $exo |
Line 37... | Line 37... | ||
37 | !next xm |
37 | !next xm |
38 | !next i |
38 | !next i |
39 | !if $checksessions=$empty |
39 | !if $checksessions=$empty |
40 | !exit |
40 | !exit |
41 | !endif |
41 | !endif |
42 |
|
42 | !readproc adm/class/userscore1 $checkuser |
43 | n=!linecnt $sc |
- | |
44 | tses= |
- | |
45 | !for i=1 to $n |
- | |
46 | l=!line $i of $sc |
- | |
47 | !distribute words $l into e_,s_,t__,T_,i_,S_,t_ |
- | |
48 | score$(S_)$e_=$s_ |
- | |
49 | !if $s_ issametext 00 |
- | |
50 | tses=!append item $S_ to $tses |
- | |
51 | start$(S_)$e_=$t_ |
- | |
52 | dur$(S_)$e_=$T_ |
- | |
53 | !endif |
- | |
54 | !if $t__ issametext -1 |
- | |
55 | duree$(S_)$e_=!exec pari divrem($T_ - $(dur$(S_)$e_),60)~ |
- | |
56 | !endif |
- | |
57 | !next i |
- | |
58 | checksessions=!listintersect $tses and $checksessions |
- | |
59 | !exit |
43 | !exit |
60 | !endif |
44 | !endif |
61 | 45 | ||
62 | exos=!sh if [ -d $logdir/$checksession ]; then cd $logdir/$checksession; ls; fi |
46 | exos=!sh if [ -d $logdir/$checksession ]; then cd $logdir/$checksession; ls; fi |
63 | exos=!words2items $exos |
47 | exos=!words2items $exos |