Subversion Repositories wimsdev

Rev

Go to most recent revision | Details | 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
6
 exo=$exolist
7
 nn=!itemcnt $exolist
8
!endif
9
 
10
shlist=
11
!ifval $random=0
12
 shufflelist=$exo
13
!else
14
 shuffle=!shuffle $nn
15
 shufflelist=!item $shuffle of $exo
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
29
wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel
30