Subversion Repositories wimsdev

Rev

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

Rev 10019 Rev 12555
Line 6... Line 6...
6 
!!! FIXME max of session number
 6 
!!! FIXME max of session number
7 
!!! do reset only if the variable is non empty, if not it creates a variable
 7 
!!! do reset only if the variable is non empty, if not it creates a variable
8 
!!! and gives some "variable_name_buffer_overflow"
 8 
!!! and gives some "variable_name_buffer_overflow"
9 
 
 9 
 
10 
!for i in $activexams
 10 
!for i in $activexams
11 
 !if $(Dureeexam_$i)!=$empty
 11 
  !if $(Dureeexam_$i)!=$empty
12 
   !reset Dureeexam_$i
 12 
    !reset Dureeexam_$i
13 
 !endif
 13 
  !endif
14 
 !if $(Dureeexam_$i)!=$empty
 14 
  !if $(Dureeexam_$i)!=$empty
15 
   !reset Dureeexam_$i
 15 
    !reset Dureeexam_$i
16 
 !endif
 16 
  !endif
17 
 !for jj=1 to 64
 17 
  !for jj=1 to 64
18 
 !! jj correspond to maximum of number sessions
 18 
    !! jj correspond to maximum of number sessions
19 
   !if $(duree$(jj)_$(i))!=$empty
 19 
    !if $(duree$(jj)_$(i))!=$empty
20 
     !reset duree$(jj)_$(i)
 20 
      !reset duree$(jj)_$(i)
21 
   !endif
 21 
    !endif
22 
   !if $(exam_$jj)!=$empty
 22 
    !if $(exam_$jj)!=$empty
23 
    !reset exam_$jj
 23 
     !reset exam_$jj
24 
   !endif
 24 
    !endif
25 
!! jj correspond to exos in an exam
 25 
    !! jj correspond to exos in an exam
26 
   !if $(exam$(i)_$jj)!=$empty
 26 
    !if $(exam$(i)_$jj)!=$empty
27 
     !reset exam$(i)_$jj
 27 
      !reset exam$(i)_$jj
28 
   !endif
 28 
    !endif
29 
  !next
 29 
  !next
30 
!next
 30 
!next
31 
 
 31 
 
32 
sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
 32 
sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
33 
!if $sc=$empty
 33 
!if $sc=$empty
34 
  !exit
 34 
  !exit
35 
!endif
 35 
!endif
36 
nsc=!linecnt $sc
 36 
nsc=!linecnt $sc
37 
 
 37 
 
38 
 
 38 
 
39 
!for i=1 to $nsc
 39 
!for i=1 to $nsc
40 
  l=!line $i of $sc
 40 
  l=!line $i of $sc
41 
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
 41 
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
42 
  !if $S_=0
 42 
  !if $S_=0
43 
    !reset jj
 43 
    !reset jj
Line 50... Line 50...
50 
      start$(jj)_$e_=$t_
 50 
      start$(jj)_$e_=$t_
51 
      dur$(jj)_$e_=$T_
 51 
      dur$(jj)_$e_=$T_
52 
    !endif
 52 
    !endif
53 
    !if $t__ issametext -1
 53 
    !if $t__ issametext -1
54 
      duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
 54 
      duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
55 
    !endif
 55 
    !endif
56 
  !endif
 56 
  !endif
57 
!next
 57 
!next
58 
!for i in $activexams
 58 
!for i in $activexams
59 
 !if $(Dureeexam_$i)!=$empty
 59 
  !if $(Dureeexam_$i)!=$empty
60 
   !reset Dureeexam_$i
 60 
    !reset Dureeexam_$i
61 
 !endif
 - 
 
62 
 !for e=1 to 64
 - 
 
63 
  !if $(Exam_$(i)_$(e))!=$empty
 - 
 
64 
    !reset Exam_$(i)_$(e)
 - 
 
65 
  !endif
 - 
 
66 
  !if $(exam$(i)_$e)!=$empty
 - 
 
67 
     !reset exam$(i)_$e
 - 
 
68 
  !endif
 61 
  !endif
- 
 
 62 
  !for e=1 to 64
- 
 
 63 
    !if $(Exam_$(i)_$(e))!=$empty
- 
 
 64 
      !reset Exam_$(i)_$(e)
- 
 
 65 
    !endif
- 
 
 66 
    !if $(exam$(i)_$e)!=$empty
- 
 
 67 
      !reset exam$(i)_$e
- 
 
 68 
    !endif
69 
 !next
 69 
  !next
70 
 !for ses_ in $checksessions
 70 
  !for ses_ in $checksessions
71 
   !set jj=!positionof item $ses_ in $checksessions
 71 
    !set jj=!positionof item $ses_ in $checksessions
72 
   !if $(duree$(jj)_$i)!=$empty
 72 
    !if $(duree$(jj)_$i)!=$empty
73 
        Dureeexam_$i=!append item $(duree$(jj)_$i) to $(Dureeexam_$i)
 73 
      Dureeexam_$i=!append item $(duree$(jj)_$i) to $(Dureeexam_$i)
74 
   !endif
 74 
    !endif
75 
 !next
 75 
  !next
76 
!next
 76 
!next
77 
 
 77 
 
78 
!!details des notes examens par session
 78 
!!details des notes examens par session
79 
!for ses_ in $checksessions
 79 
!for ses_ in $checksessions
80 
   !set jj=!positionof item $ses_ in $checksessions
 80 
  !set jj=!positionof item $ses_ in $checksessions
81 
   !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}'
 81 
  !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}'
82 
   !set ss=!lines2rows $ss
 82 
  !set ss=!lines2rows $ss
83 
   !set ss=!words2items $ss
 83 
  !set ss=!words2items $ss
84 
!!perhaps several different exams in one session.
 84 
  !!perhaps several different exams in one session.
85 
   !for i in $(exam_$(jj))
 85 
  !for i in $(exam_$(jj))
86 
     !set s_=!select $ss where column 1=$i
 86 
    !set s_=!select $ss where column 1=$i
87 
     !set nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$i
 87 
    !set nbx=!recordcnt wimshome/log/classes/$wims_class/exams/.exam$i
88 
     !for k_=1 to $nbx
 88 
    !for k_=1 to $nbx
89 
       !reset s
 89 
      !reset s
90 
       !set s=!select $s_ where column 2=$k_
 90 
      !set s=!select $s_ where column 2=$k_
91 
       !set s=$(s[3])
 91 
      !set s=$(s[3])
92 
       !if $s!=$empty
 92 
      !if $s!=$empty
93 
         !set s=$[rint($s*$scoremax)/10]
 93 
        !set s=$[rint($s*$scoremax)/10]
94 
       !endif
 94 
      !endif
95 
       !set Exam_$(i)_$(jj)=$(Exam_$(i)_$(jj)) $s,
 95 
      !set Exam_$(i)_$(jj)=$(Exam_$(i)_$(jj)) $s,
96 
     !next
 96 
    !next
97 
   !next
 97 
  !next
98 
!next
 98 
!next