Subversion Repositories wimsdev

Rev

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

Rev 9878 Rev 9938
Line 28... Line 28...
28 
!for i=1 to $nsc
 28 
!for i=1 to $nsc
29 
  l=!line $i of $sc
 29 
  l=!line $i of $sc
30 
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
 30 
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
31 
  !set jj=!positionof item $S_ in $checksessions
 31 
  !set jj=!positionof item $S_ in $checksessions
32 
  !set score$(jj)_$e_=$s_
 32 
  !set score$(jj)_$e_=$s_
- 
 
 33 
  !set exam_$jj=!append item $e_ to $(exam_$jj)
33 
  !set exam_$jj=$e_
 34 
  !set exam_$jj=!listuniq $(exam_$jj)
34 
  !if $s_ issametext 00
 35 
  !if $s_ issametext 00
35 
    start$(jj)_$e_=$t_
 36 
    start$(jj)_$e_=$t_
36 
    dur$(jj)_$e_=$T_
 37 
    dur$(jj)_$e_=$T_
37 
  !endif
 38 
  !endif
38 
  !if $t__ issametext -1
 39 
  !if $t__ issametext -1
Line 63... Line 64...
63 
!for ses_ in $checksessions
 64 
!for ses_ in $checksessions
64 
   !set jj=!positionof item $ses_ in $checksessions
 65 
   !set jj=!positionof item $ses_ in $checksessions
65 
   !set ss=!sh grep "$ses_" $wims_home/log/classes/$wims_class/noscore/$uu | grep "score" | awk -F"\t" '{print $$1}' | awk -F" " '{print $$3,$$4,$$6}'
 66 
   !set ss=!sh grep "$ses_" $wims_home/log/classes/$wims_class/noscore/$uu | grep "score" | awk -F"\t" '{print $$1}' | awk -F" " '{print $$3,$$4,$$6}'
66 
   !set ss=!lines2rows $ss
 67 
   !set ss=!lines2rows $ss
67 
   !set ss=!words2items $ss
 68 
   !set ss=!words2items $ss
- 
 
 69 
!!perhaps several different exams in one session.
68 
   !set i = $(exam_$(jj))
 70 
   !for i in $(exam_$(jj))
69 
     !set s_=!select $ss where column 1=$i
 71 
     !set s_=!select $ss where column 1=$i
70 
     !set nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$i
 72 
     !set nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$i
71 
     !for k_=1 to $nbx
 73 
     !for k_=1 to $nbx
72 
       !reset s
 74 
       !reset s
73 
       !set s=!select $s_ where column 2=$k_
 75 
       !set s=!select $s_ where column 2=$k_
74 
       !set s=$(s[3])
 76 
       !set s=$(s[3])
75 
       !if $s!=$empty
 77 
       !if $s!=$empty
76 
         !set s=$[rint($s*$scoremax)/10]
 78 
         !set s=$[rint($s*$scoremax)/10]
77 
       !endif
 79 
       !endif
78 
       !set Exam_$(i)_$(jj)=$(Exam_$(i)_$(jj)) $s,
 80 
       !set Exam_$(i)_$(jj)=$(Exam_$(i)_$(jj)) $s,
- 
 
 81 
     !next
79 
   !next
 82 
   !next
80 
!next
 83 
!next