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