Subversion Repositories wimsdev

Rev

Rev 546 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 546 Rev 15353
Line 1... Line 1...
1 
 
 1 
 
2 
exo=!listintersect $exo and $exolist
 2 
exo=!listintersect $exo and $exolist
3 
nn=!itemcnt $exo
 3 
nn=!itemcnt $exo
4 
wims_intro_parm=$exo
 4 
wims_intro_parm=$exo
5 
!if $nn<=0
 5 
!if $nn<=0
6 
 exo=$exolist
 6 
  exo=$exolist
7 
 nn=!itemcnt $exolist
 7 
  nn=!itemcnt $exolist
8 
!endif
 8 
!endif
9 
 
 9 
 
10 
shlist=
 10 
shlist=
11 
!ifval $random=0
 11 
!ifval $random=0
12 
 shufflelist=$exo
 12 
  shufflelist=$exo
13 
!else
 13 
!else
14 
 shuffle=!shuffle $nn
 14 
  shuffle=!shuffle $nn
15 
 shufflelist=!item $shuffle of $exo
 15 
  shufflelist=!item $shuffle of $exo
16 
!endif
 16 
!endif
17 
 
 17 
 
18 
presentgood=!item $qcmlevel of 1,1,1,1,1,1,0,0
 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
 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
 20 
givehint   =!item $qcmlevel of 1,1,1,1,1,0,0,0
Line 25... Line 25...
25 
  loglist=$nn
 25 
  loglist=$nn
26 
!else
 26 
!else
27 
  loglist=$shufflelist
 27 
  loglist=$shufflelist
28 
!endif
 28 
!endif
29 
wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel
 29 
wims_module_log=$cmd: $qnum exos on $loglist level=$qcmlevel
30 
 
 -