Subversion Repositories wimsdev

!nocache
varcnt=$[min($varcnt,$limit_var)]
replycnt=$[min($replycnt,$limit_reply)]
choicecnt=$[min($choicecnt,$limit_choice)]
!reset fill_check fill_checked

!for i=1 to $choicecnt
  choice$i=
  cbad=!listuniq $(choicebad$i)
  cgood=!listuniq $(choicegood$i)
  cbad=!listcomplement $cgood in $cbad
  choicebad$i=$cbad
  itemg=!itemcnt $cgood
  itemb=!itemcnt $cbad
  !if $itemg<=1 and $qcmgood>0 and $itemb>1
    shf=!shuffle $itemb-1
    ccbad=!item 2 to -1 of $cbad
    tmp=!item 1 of $cbad
    ccbad=!item $shf of $ccbad
    cbad=$tmp,$ccbad
    cli=!item 1 to $qcmpresent of $cgood,$cbad
  !else
    shf=!shuffle $cgood,$cbad
    cli=!item 1 to $qcmpresent of $shf
    !if $qcmpresent<=$itemb
      qcmgood=0
    !endif
  !endif
  choiceitems$i=!itemcnt $cli
  num=yes
  !for j=1 to $(choiceitems$i)
    t=!item $j of $cli
    t=$[$t]
    !if NaN isin $t
      num=no
    !endif
  !next j
  !if shuffle iswordof $(choiceoption$i)
    choicelist$i=!shuffle $cli
  !else
    !if $num=yes
      choicelist$i=!sort numeric list $cli
    !else
      choicelist$i=!sort nocase list $cli
    !endif
  !endif
  choicegood$i=!listintersect $cgood and $cli
!next i

!for i=1 to $replycnt
  reply$i=
  replygood$i=!trim $(replygood$i)
  !!FIXME to replace by !reset inputprompt[$limit_reply] when it will be avalaible
  !!useful for exercises by createxo
  !if $(inputprompt$i)!=$empty
    !reset inputprompt$i
  !endif
!next i

!read oef/valsave.proc

!if $ansorder=$empty
  !for i=1 to $choicecnt
    ansorder=!append item c to $ansorder
  !next i
  !for i=1 to $replycnt
    ansorder=!append item r to $ansorder
  !next i
!endif

!bound precision between integer 20 and 100000000 default 10000
!default leftrange=-5
!default rightrange=5
!default cchoicecnt=$choicecnt
!default creplycnt=$replycnt
wims_compare_precision=$precision
question_url=
status=waiting
!default conditioncnt=0