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