Subversion Repositories wimsdev

!if $use_mathml=1

 force_mathml=yes

!endif

!if $cmd=reply and $status!=waiting

 error=double_reply

 !exit

!endif

n=$counter

# firm anti-back-button-policy

!if exam notin $session

 # because of strange behaviour of "help_in_exam bug_fix" the help-page starts a copy of the exam-page...

 !if $status=waiting and $cmd=reply

  session_done=!append item $session to $session_done

  t=!positionof item $session in $session_done

  t=!itemcnt $t

  !if $t!=1

  # disable !insmath $(reply$n)

   math=0

   status=done

   !for p=$n to $total_exos

    reply$p=<b>$no_back_button</b>

    remark$p=$NOK

   !next p

   !readproc $procdir/score.proc

   !exit

  !endif

 !endif

!endif

!if $status=waiting and $cmd=reply

 # extra check on javascript injection through adress bar

 # in precheck.js the 'confirm box' will also check on substring 'script>' from input fields 

 forbidden=script>

 !if $forbidden isin $(reply$n)

  reply$n=hmmm...

  remark$n=<span style="color:red">@#! JAVASCRIPT !#@</span>

  modulescore=$[$modulescore/$total_exos]

  total_exos=$counter

  status=done

  !readproc $procdir/score.proc

  !exit

 !endif

 !readproc $checkfile

 !if $try>$maxtry

 # give some points for what was good...

  modulescore=$[$modulescore/$total_exos]

  total_exos=$counter

  status=done

  !readproc $procdir/score.proc

  !exit

 !endif

 !if $goback=1

  !increase try

  !exit

 !else

  !if $goodbadsign=2

   !if $maxscore>0.9

    fine=!randitem $ok

    clr=green

   !else

    !if $maxscore>0.4

     fine=!randitem $bok

     clr=#ff7900

    !else

     fine=!randitem $nok

     clr=red

    !endif

   !endif

   remark$n=!append line $ <br /><span style="color:$clr;font-style:italic;">$fine</span> $ to $(remark$n)

  !endif

  #wims_module_log=!append line $(answer$n) to $wims_module_log 

  !if $counter=$total_exos

   status=done

   !readproc $procdir/score.proc

   !exit

  !else

   counter=$[$counter+1]

   # reset maxscore 

   # in some checkfiles we give small penalties for little mistakes 

   # and maxscore=$[$penalty*$maxscore]

   maxscore=1

   goback=0

   errortext=$empty

   # typical: modulescore=$[$modulesecore + $maxscore]

   !readproc exos/exo$subject

  !endif

 !endif

!endif