Subversion Repositories wimsdev

!set wims_backslash_insmath=yes
#if you change these limits, you have to modify var.def!

sstyle          =!item $style of 1,1,2,2
ask_reason      =!item $style of 1,0,0,1
all_steps       =!item $style of 0,1,0,0
ltype           =!item $sstyle of ol,ul
wims_prefix     =class user tmp
!read scenario/$module_language/names
!read Exindex
exocnt=!itemcnt $exolist
!bound random within 0,1 default 1
!default format=html

!if $cmd=reply and $status!=waiting
  error=double_reply
  !exit
!endif

!if $status=$empty
  !read scenario/exo.init
!endif

nn=!itemcnt $shufflelist
#thisexo=!item ($reply_cnt)%$nn+1 of $shufflelist
thisexo=!item 1 of $shufflelist
!if $nn>1 and $status!=waiting
  wims_module_log=$wims_module_log got $thisexo
!endif

!if $status!=waiting
  !read scenario/var.prep
!endif

!if $cmd=reply and $status=waiting
  !read scenario/var.proc.$sstyle
  !if $done=yes
    !if $sstyle=2
      module_score=$[$scorecnt/$stepcnt]
    !endif
    weight=!item $level of 0.6,1,1.6,3,5
    module_score=$[max(min($module_score,10),0)]
    !if $level=5 and $module_score<10
      module_score=0
    !else
      module_score=$[rint(100*($module_score/10)^$weight)/10]
    !endif
    wims_module_log=score $module_score
    status=
  !endif
!endif

!set wims_title_title=$module_title<br />$title