Subversion Repositories wimsdev

Rev

Rev 17423 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17423 Rev 17431
Line 8... Line 8...
8 
  progressbar_=$wims_read_parm
 8 
  progressbar_=$wims_read_parm
9 
  !goto html
 9 
  !goto html
10 
!endif
 10 
!endif
11 
 
 11 
 
12 
!! ---- calculate list of score only work for exam in course mode
 12 
!! ---- calculate list of score only work for exam in course mode
13 
wims_pses=!translate _ to , in $wims_session
 13 
pses_=!translate _ to , in $wims_session
14 
t_=!replace internal exam by $empty in $(wims_pses[2])
 14 
t_=!replace internal exam by $empty in $(pses_[2])
15 
t_=!replace internal t by , in $t_
 15 
t_=!replace internal t by , in $t_
16 
!distribute item $t_ into bl,exam_,exo_
 16 
!distribute item $t_ into bl,exam_,exo_
17 
pos_=!positionof item $exo_ in $(wims_exrandomlist[1;])
 17 
pos_=!positionof item $exo_ in $(wims_exrandomlist[1;])
18 
!if $pos_>1
 18 
!if $pos_>1
19 
  progressbar_=!values 10 for v=1 to $[$pos_-1]
 19 
  progressbar_=!values 10 for v=1 to $[$pos_-1]