Subversion Repositories wimsdev

Rev

Rev 8311 | Rev 9719 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8311 Rev 9470
Line 42... Line 42...
42 
 sc=!record 0 of wimshome/log/classes/$wims_class/score/$checkuser.exam
 42 
 sc=!record 0 of wimshome/log/classes/$wims_class/score/$checkuser.exam
43 
 n=!linecnt $sc
 43 
 n=!linecnt $sc
44 
 tses=
 44 
 tses=
45 
 !for i=1 to $n
 45 
 !for i=1 to $n
46 
  l=!line $i of $sc
 46 
  l=!line $i of $sc
47 
  !distribute words $l into e_,s_,t_,T_,i_,S_,t_
 47 
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
48 
  score$(S_)$e_=$s_
 48 
  score$(S_)$e_=$s_
49 
  !if $s_ issametext 00
 49 
  !if $s_ issametext 00
50 
   tses=!append item $S_ to $tses
 50 
   tses=!append item $S_ to $tses
51 
   start$(S_)$e_=$t_
 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)~
52 
  !endif
 56 
  !endif
53 
 !next i
 57 
 !next i
54 
 checksessions=!listintersect $tses and $checksessions
 58 
 checksessions=!listintersect $tses and $checksessions
55 
 !exit
 59 
 !exit
56 
!endif
 60 
!endif