Subversion Repositories wimsdev

Rev

Rev 15353 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 
2
exo=!listintersect $exo and $exolist
3
nn=!itemcnt $exo
4
wims_intro_parm=$exo
5
!if $nn<=0
15353 bpr 6
  exo=$exolist
7
  nn=!itemcnt $exolist
23 reyssat 8
!endif
9
 
10
shlist=
11
!ifval $random=0
15353 bpr 12
  shufflelist=$exo
23 reyssat 13
!else
15353 bpr 14
  shuffle=!shuffle $nn
15
  shufflelist=!item $shuffle of $exo
23 reyssat 16
!endif
17
 
18
presentgood=!item $qcmlevel of 1,1,1,1,1,1,0,0
19
presentsol =!item $qcmlevel of 2,2,1,1,0,0,0,0
20
givehint   =!item $qcmlevel of 1,1,1,1,1,0,0,0
21
scorepower =!item $qcmlevel of 0.95,0.9,0.8,0.7, 0.6,0.5,0.4,0.3
22
 
23
!distribute item 0,0,0 into reply_cnt,score_should,score_got
24
!if $nn>4
25
  loglist=$nn
26
!else
27
  loglist=$shufflelist
28
!endif
15431 bpr 29
!set title=!lookup $exo in Extitles_$modu_lang
30
 
23 reyssat 31
wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel