Subversion Repositories wimsdev

!nocache

!read oef/default

tmp_exo=$exo

exo=!listintersect $exo and $exolist

!if $tmp_exo!=$empty and $exo=$empty and $wims_user=supervisor

  error=noexists

!endif

!reset tmp_exo

!default exo=$defaultlist

wims_intro_parm=$exo

!default exo=$exolist

nn=!itemcnt $exo

shlist=

!ifval $random=0

  shufflelist=$exo

!else

  shuffle=!shuffle $nn

  shufflelist=!item $shuffle of $exo

!endif

!read getparm $special_parm3 confparm1 confparm2 confparm3 confparm4 confparm5 confparm6

!for cf=1 to 6

  !default confparm$cf=$(get_confparm$cf)

!next

!if $intro_expert=yes

  !distribute items 0,0,0,0 into qcmgood,penalty,givegood,givehint

  !bound intro_qcmpresent between 2 and 8 default $(default_choice[4])

  qcmpresent=$intro_qcmpresent

  !bound intro_sol between -1 and $limit_version default $(default_choice[3])

  !bound intro_feed between -2 and $limit_version default $(default_choice[5])

  !! for retrocompatibility

  presentsol=$intro_presentsol

  !if $presentsol!=$empty

    givesol=$[$presentsol-1]

  !else

    givesol=$intro_sol

  !endif

  givefeed=$intro_feed

  !read oef/testseedscore.phtml

  !read getparm $module_init_parm intro_check intro_hint intro_good

  !if 4 isin $get_introcheck

    !set introgivehint=1

  !endif

  !default introgivehint=$get_intro_hint

  !bound introgivehint between -2 and $limit_version default 1

  !default oefenv_givegood=$get_intro_good

  !default seedrepeat=0

  !default seedlastcnt=1

  !!calculation done before the line with new.

  !if $seedlastcnt>=$seedrepeat

    !set seedlastcnt=1

    !increase seedcnt

  !else

    !increase seedlastcnt

  !endif

  !if $introgivehint=-2

    !set scorestat=!getscorestatus sheet=$wims_sheet

  !endif

  !!givehint is 1 or 0 depending whether hint must be printed or not

  !if (4 isitemof $intro_check or $introgivehint=-1 or ($introgivehint=1 and $seedrepeat<=1) or\

      ($introgivehint>=1 and $seedcnt>=$introgivehint and $seedlastcnt>=$seedrepeat)\

      or ($introgivehint=-2 and $scorestat=no))

    !set givehint=1

  !endif

  !bound intro_expow between 1 and 6 default $(list_expow[1])

  !bound intro_sepow between 1 and 6 default $(list_sepow[1])

  !bound intro_precw between 0 and 1 default $(list_precw[1])

  !if $qnum>1

    scorepower=$intro_sepow

  !else

    scorepower=1

  !endif

  freepower=$intro_expow

  precweight=$intro_precw

 !!for choice type

  !if 1 isitemof $introcheck

    qcmgood=1

  !endif

  !if 2 isitemof $introcheck

    penalty=1

  !endif

!else

  !! non expert parametrage, every thing is deduced from the qcmlevel

  !default qcmpresent =!item $qcmlevel of 3,3,4,5,5,6,7,8,8

  !default qcmgood    =!item $qcmlevel of 1,1,1,1,0,0,0,0,0

  !default penalty    =!item $qcmlevel of 0,0,0,0,0,1,1,1,1

  !default givegood=!item $qcmlevel of 1,1,1,1,1,1,0,0,0

  !default givesol=!item $qcmlevel of 1,1,1,0,0,0,0,0,0

  !default givefeed=!item $qcmlevel of 1,1,1,1,1,1,1,1,1

  !default givehint   =!item $qcmlevel of 1,1,1,1,1,0,0,0,0

  !default scorepower =!item $qcmlevel of 1,1,1,1.1,1.3,1.5,1.7,2,2.6

  !default freepower  =!item $qcmlevel of 1,1.5,2,2.5,3,3.5,4,4.5,5

  !default precweight =!item $qcmlevel of 0.9,0.8,0.7,0.55,0.4,0.25,0.1,0,0

  !default oefenv_givegood=$givegood

!endif

!!qcmpower   =!item $qcmlevel of 1,1.1,1.2,1.3,1.5,2,2.5,3,4

!!! where is defined allchoices, except as a default 0 ?

!if $allchoices>0

  !default qcmpresent=8

!endif

!distribute item 0,0,0 into reply_cnt,score_should,score_got

!if $oef_test!=yes

  !if $nn>4

    loglist=$nn

  !else

    loglist=$shufflelist

  !endif

  wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel

!endif