Subversion Repositories wimsdev

Rev

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

Rev 16510 Rev 17410
Line 21... Line 21...
21 
  start_ip=!sh awk '{if ($$6=="$wims_session" && $$2=="00") print $$5;}' $wims_home/log/classes/$wims_class/score/$wims_user.exam
 21 
  start_ip=!sh awk '{if ($$6=="$wims_session" && $$2=="00") print $$5;}' $wims_home/log/classes/$wims_class/score/$wims_user.exam
22 
!endif
 22 
!endif
23 
 
 23 
 
24 
replycnt=0
 24 
replycnt=0
25 
!reset scorereducedbyip
 25 
!reset scorereducedbyip
- 
 
 26 
progressbar=!values -1 for v=1 to $exocnt
26 
!for i=1 to $p
 27 
!for i=1 to $p
27 
  l=!record $i of wimshome/$wims_sesdir/examscore.$exam
 28 
  l=!record $i of wimshome/$wims_sesdir/examscore.$exam
28 
  !distribute words $l into a_,b_,c_,d_,e_,f_,g_,i_
 29 
  !distribute words $l into a_,b_,c_,d_,e_,f_,g_,i_
29 
  !if $c_=score and $(replied$b_)=0
 30 
  !if $c_=score and $(replied$b_)=0
30 
    got$b_=$d_
 31 
    got$b_=$d_
Line 35... Line 36...
35 
    !else
 36 
    !else
36 
      gotip$b_=$d_
 37 
      gotip$b_=$d_
37 
    !endif
 38 
    !endif
38 
    replied$b_=1
 39 
    replied$b_=1
39 
    !advance replycnt
 40 
    !advance replycnt
- 
 
 41 
    !let pos_=!positionof item $b_ in $(wims_exrandomlist[1;])
- 
 
 42 
    progressbar=!replace item number $pos_ by $d_ in $progressbar
40 
  !endif
 43 
  !endif
41 
!next i
 44 
!next i
42 
 
 45 
 
43 
totgot=0
 46 
totgot=0
44 
totgotip=0
 47 
totgotip=0