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)
!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