Subversion Repositories wimsdev

Rev

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

Rev 9719 Rev 9878
Line 2... Line 2...
2
 
2
 
3
!!! perhaps should be a command in wims.c ?
3
!!! perhaps should be a command in wims.c ?
4
!!! variables which are necessary : wims_class, checksessions
4
!!! variables which are necessary : wims_class, checksessions
5
!!! FIXME 64= max of exam number
5
!!! FIXME 64= max of exam number
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
-
 
8
!!! and gives some "variable_name_buffer_overflow"
-
 
9
 
7
!for i in $activexams
10
!for i in $activexams
-
 
11
 !if $(Dureeexam_$i)!=$empty
8
 !reset Dureeexam_$i
12
   !reset Dureeexam_$i
-
 
13
 !endif
9
 !for jj=1 to 64
14
 !for jj=1 to 64
10
 !! jj correspond to maximum of number sessions
15
 !! jj correspond to maximum of number sessions
-
 
16
   !if $(duree$(jj)_$(i))!=$empty
11
   !reset duree$(jj)_$(i)
17
     !reset duree$(jj)_$(i)
-
 
18
   !endif
12
!! jj correspond to exos in an exam
19
!! jj correspond to exos in an exam
-
 
20
   !if $( exam$(i)_$jj)!=$empty
13
   !reset exam$(i)_$jj
21
     !reset exam$(i)_$jj
-
 
22
   !endif
14
  !next
23
  !next
15
!next
24
!next
16
 
25
 
17
sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
26
sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
18
nsc=!linecnt $sc
27
nsc=!linecnt $sc
Line 28... Line 37...
28
  !endif
37
  !endif
29
  !if $t__ issametext -1
38
  !if $t__ issametext -1
30
    duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
39
    duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
31
  !endif
40
  !endif
32
!next
41
!next
33
 
-
 
34
!for i in $activexams
42
!for i in $activexams
-
 
43
 !if $(Dureeexam_$i)!=$empty
35
 !reset Dureeexam_$i
44
   !reset Dureeexam_$i
-
 
45
 !endif
36
 !for e=1 to 64
46
 !for e=1 to 64
-
 
47
  !if $(Exam_$(i)_$(e))!=$empty
37
   !reset exam$(i)_$e Exam_$(i)_$(e)
48
    !reset Exam_$(i)_$(e)
-
 
49
  !endif
-
 
50
  !if $(exam$(i)_$e)!=$empty
-
 
51
     !reset exam$(i)_$e
-
 
52
  !endif
38
 !next
53
 !next
39
 !for ses_ in $checksessions
54
 !for ses_ in $checksessions
40
   !set jj=!positionof item $ses_ in $checksessions
55
   !set jj=!positionof item $ses_ in $checksessions
41
   !if $(duree$(jj)_$i)!=$empty
56
   !if $(duree$(jj)_$i)!=$empty
42
        Dureeexam_$i=!append item $(duree$(jj)_$i) to $(Dureeexam_$i)
57
        Dureeexam_$i=!append item $(duree$(jj)_$i) to $(Dureeexam_$i)