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