Subversion Repositories wimsdev

scoremax=!record 0 of wimshome/log/classes/$wims_class/sheets/.severity

scoremax=!line 1 of $scoremax

!default scoremax=10

!for e=1 to $exocnt

  got$e=0

  gotip$e=0

  replied$e=0

  ip$e=$empty

!next e

p=!recordcnt wimshome/$wims_sesdir/examscore.$exam

reg=!record 0 of wimshome/$wims_sesdir/examreg.$exam

!if $allowtype=simulation or $wims_user=supervisor

  class_examscore_withoutip=yes

!else

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

!endif

!if $class_examscore_withoutip!=yes

  start_ip=!sh awk '{if ($$6=="$wims_session" && $$2=="00") print $$5;}' $wims_home/log/classes/$wims_class/score/$wims_user.exam

!endif

replycnt=0

!reset scorereducedbyip

progressbar=!values -1 for v=1 to $exocnt

!for i=1 to $p

  l=!record $i of wimshome/$wims_sesdir/examscore.$exam

  !distribute words $l into a_,b_,c_,d_,e_,f_,g_,i_

  !if $c_=score and $(replied$b_)=0

    got$b_=$d_

    ip$b_=$e_

    !if $class_examscore_withoutip!=yes and $start_ip!=$e_

      gotip$b_=0

      scorereducedbyip=1

    !else

      gotip$b_=$d_

    !endif

    replied$b_=1

    !advance replycnt

    !let pos_=!positionof item $b_ in $(wims_exrandomlist[1;])

    progressbar=!replace item number $pos_ by $d_ in $progressbar

  !endif

!next i

totgot=0

totgotip=0

totweight=0

!for e=1 to $exocnt

  l=!record $e of wimshome/log/classes/$wims_class/exams/.exam$exam

  w=!word 1 of $l

  weight$e=$w

  totweight=$[$totweight+$w]

  totgot=$[$totgot+$w*$(got$e)]

  totgotip=$[$totgotip+$w*$(gotip$e)]

  dd=!append line $w $totgot to $dd

!next e

!if $totweight>0

  score=$[rint((100-10*$sprime)*$totgot/$totweight+100*$sprime)/100]

  scoreip=$[rint((100-10*$sprime)*$totgotip/$totweight+100*$sprime)/100]

!else

  score=$sprime

!endif

!writefile wimshome/$wims_sesdir/examdata.$exam $sdure $sprime

registered=!record 0 of wimshome/$wims_sesdir/examreg.$exam

wims_exam_remain=$[60*$sdure-($wims_nowseconds-$registered)]

!! TODO il faudrait une commande c qui calcule tout seul cette date....

!! le temps restant affiche ne peut pas aller au dela de la limitation fixee par la limitation de feuille.

!set expir_user=!record 0 of wimshome/log/classes/$wims_class/.E$exam

!set cle=!word 1 of $expir_user

!! process for technical variable definition (replace expir_user by value given by the technical variable)

!if \ isin $cle

  !set idtechvar=!line 1 of $expir_user

  !set idtechvar=!char 2 to -1 of $idtechvar

  !readproc adm/class/userdef ,$wims_class,$wims_user

  !set val=!defof user_techvar_$(idtechvar) in $userdef

  !default val=EMPTY

  !reset expir_user

  !set expir_user=!defof techvar_$val in wimshome/log/classes/$wims_class/.E$exam

  !default expir_user=none

!endif

!! end process technical variable

!if $expir_user!=none

  expir_user=!words2items $expir_user

  nb=!itemcnt $expir_user

  fin=$empty

  c=<

  !for k=1 to $nb

    !if $c isin $(expir_user[$k])

      fin=!char 2 to -1 of $(expir_user[$k])

      fin=!text select 0123456789.: in $fin

    !endif

  !next k

  !if $fin!=$empty

    date=!char 1 to 8 of $fin

    time=!char 10 to 14 of $fin

    !read date.phtml $date.$time,noprint

    time_end=$slib_out

    left=!sh date -d"$date $time" +%s

    left=$[max(0,$left-$wims_nowseconds)]

    wims_exam_remain=$[min($left,$wims_exam_remain)]

  !endif

!endif

!! fin des modifications qui decoule de la limitation fixee par la feuille

!if $registered=$empty

  !reset wims_exam_remain

!endif

l=!examscore

lastscore=!word $exam of $l

!default lastscore=0

tr=!line $exam+1 of $l

!distribute words $tr into tr1, tried, trcut

!if $tried=0

  trcut=1

!endif

tryremain=$[$stries-$tried]

!if $trcut=0

  tryremain=0

!endif

t_=!getscorestatus sheet=$exam exam=yes