Subversion Repositories wimsdev

Rev

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

Rev 10016 Rev 10019
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
- 
 
 12 
   !reset Dureeexam_$i
- 
 
 13 
 !endif
11 
 !if $(Dureeexam_$i)!=$empty
 14 
 !if $(Dureeexam_$i)!=$empty
12 
   !reset Dureeexam_$i
 15 
   !reset Dureeexam_$i
13 
 !endif
 16 
 !endif
14 
 !for jj=1 to 64
 17 
 !for jj=1 to 64
15 
 !! jj correspond to maximum of number sessions
 18 
 !! jj correspond to maximum of number sessions
16 
   !if $(duree$(jj)_$(i))!=$empty
 19 
   !if $(duree$(jj)_$(i))!=$empty
17 
     !reset duree$(jj)_$(i)
 20 
     !reset duree$(jj)_$(i)
- 
 
 21 
   !endif
- 
 
 22 
   !if $(exam_$jj)!=$empty
- 
 
 23 
    !reset exam_$jj
18 
   !endif
 24 
   !endif
19 
!! jj correspond to exos in an exam
 25 
!! jj correspond to exos in an exam
20 
   !if $(exam$(i)_$jj)!=$empty
 26 
   !if $(exam$(i)_$jj)!=$empty
21 
     !reset exam$(i)_$jj
 27 
     !reset exam$(i)_$jj
22 
   !endif
 28 
   !endif
23 
  !next
 29 
  !next
24 
!next
 30 
!next
25 
 
 31 
 
26 
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
- 
 
 34 
  !exit
- 
 
 35 
!endif
27 
nsc=!linecnt $sc
 36 
nsc=!linecnt $sc
- 
 
 37 
 
- 
 
 38 
 
28 
!for i=1 to $nsc
 39 
!for i=1 to $nsc
29 
  l=!line $i of $sc
 40 
  l=!line $i of $sc
30 
  !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
- 
 
 43 
    !reset jj
- 
 
 44 
  !else
31 
  !set jj=!positionof item $S_ in $checksessions
 45 
    !set jj=!positionof item $S_ in $checksessions
32 
  !set score$(jj)_$e_=$s_
 46 
    !set score$(jj)_$e_=$s_
33 
  !set exam_$jj=!append item $e_ to $(exam_$jj)
 47 
    !set exam_$jj=!append item $e_ to $(exam_$jj)
34 
  !set exam_$jj=!listuniq $(exam_$jj)
 48 
    !set exam_$jj=!listuniq $(exam_$jj)
35 
  !if $s_ issametext 00
 49 
    !if $s_ issametext 00
36 
    start$(jj)_$e_=$t_
 50 
      start$(jj)_$e_=$t_
37 
    dur$(jj)_$e_=$T_
 51 
      dur$(jj)_$e_=$T_
38 
  !endif
 52 
    !endif
39 
  !if $t__ issametext -1
 53 
    !if $t__ issametext -1
40 
    duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
 54 
      duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
- 
 
 55 
    !endif
41 
  !endif
 56 
  !endif
42 
!next
 57 
!next
43 
!for i in $activexams
 58 
!for i in $activexams
44 
 !if $(Dureeexam_$i)!=$empty
 59 
 !if $(Dureeexam_$i)!=$empty
45 
   !reset Dureeexam_$i
 60 
   !reset Dureeexam_$i