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 -tr; 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 ses

  !if $checksessions=$empty

    !exit

  !endif

  !readproc adm/class/userscore1 $checkuser

  class_examscore_withoutip=!defof class_examscore_withoutip in wimshome/log/classes/$wims_class/.def

  !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