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
 
-