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]