Subversion Repositories wimsdev

checkuser=!translate / to $ $ in $checkuser
!read adm/class/userisinclass ,$checkuser
!if yes notin $script_reply
 error=bad_usercls
 !reset job,checkuser
 !exit
!endif
!read adm/class/userdef classes,$wims_class,$checkuser
!readdef $userdef
!if $user_exists != yes
 error=bad_user
 !exit
!endif

maxexo=0
!for k in $activexams
 tmp=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$k
 maxexo=$[max($maxexo,$tmp)]
!next k
logdir=$wims_home/log/classes/$wims_class/examlog/$checkuser
!if $checksession=$empty
 checksessions=!sh if [ -d $logdir ]; then cd $logdir; ls; fi
 checksessions=!words2items $checksessions
 !for ses in $checksessions
  exo=!sh cd $wims_home/log/classes/$wims_class/examlog/$checkuser/$ses; ls
  exo$ses=!words2items $exo
  exo=!words2lines $exo
  exo=!translate . to , in $exo
  exom=!column 1 of $exo
  exom=!listuniq $exom
  exam$ses=$exom
  !for xm in $exom
   exot=!select $exo where column 1 = $xm
   exot=!column 2 of $exot
   exo$(ses)$xm=!sort numeric items $exot
  !next xm
 !next i
 !if $checksessions=$empty
  !exit
 !endif
 sc=!record 0 of wimshome/log/classes/$wims_class/score/$checkuser.exam
 n=!linecnt $sc
 tses=
 !for i=1 to $n
  l=!line $i of $sc
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
  score$(S_)$e_=$s_
  !if $s_ issametext 00
   tses=!append item $S_ to $tses
   start$(S_)$e_=$t_
   dur$(S_)$e_=$T_
  !endif
  !if $t__ issametext -1
    duree$(S_)$e_=!exec pari divrem($T_ - $(dur$(S_)$e_),60)~
  !endif
 !next i
 checksessions=!listintersect $tses and $checksessions
 !exit
!endif

exos=!sh if [ -d $logdir/$checksession ]; then cd $logdir/$checksession; ls; fi
exos=!words2items $exos
logfile=classes/$wims_class/examlog/$checkuser/$checksession/$checkexo

!if _check isin $session
 !read adm/class/exocheck
!endif