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 |