Subversion Repositories wimsdev

!! make a progress bar for exam 

!! make a progress bar for exam

!! wims_read_parm is list of score for each exercise (-1=noscore)

!! wims_read_parm is list of scores for each exercise (-1=noscore)

  wims_pses=!translate _ to , in $wims_session

wims_pses=!translate _ to , in $wims_session

  t_=!replace internal exam by $empty in $(wims_pses[2])

t_=!replace internal exam by $empty in $(wims_pses[2])

  t_=!replace internal t by , in $t_

t_=!replace internal t by , in $t_

  !distribute item $t_ into bl,bl,exo_

!distribute item $t_ into bl,bl,exo_

  pos_=!positionof item $exo_ in $(wims_exrandomlist[1;])

pos_=!positionof item $exo_ in $(wims_exrandomlist[1;])

  !if $pos_>1

!if $pos_>1

    progressbar_=!values 10 for v=1 to $[$pos_-1]

  progressbar_=!values 10 for v=1 to $[$pos_-1]

  !else

!else

    !reset progressbar_

  !reset progressbar_

  !endif

!endif

  sco_=$module_score

sco_=$module_score

  !default sco_=-1

!default sco_=-1

  progressbar_=!append item $sco_ to $progressbar_

progressbar_=!append item $sco_ to $progressbar_

  tmp_=!itemcnt $(wims_exrandomlist[1;])

tmp_=!itemcnt $(wims_exrandomlist[1;])

  !if $pos_<$tmp_

!if $pos_<$tmp_

    tmp_=!values -1 for v=$[$pos_+1] to $tmp_

  tmp_=!values -1 for v=$[$pos_+1] to $tmp_

    progressbar_=!append item $tmp_ to $progressbar_

  progressbar_=!append item $tmp_ to $progressbar_

  !endif

!endif