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