Subversion Repositories wimsdev

Rev

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
 sc=!record 0 of wimshome/log/classes/$wims_class/score/$checkuser.exam
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