Subversion Repositories wimsdev

Rev

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

Rev 12555 Rev 15569
Line 23... Line 23...
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
-
 
29
    !if $(sess_$jj)!=$empty
-
 
30
      !reset sess_$jj
28
    !endif
31
    !endif
29
  !next
32
  !next
30
!next
33
!next
31
 
34
 
32
sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
35
sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
33
!if $sc=$empty
36
!if $sc=$empty
34
  !exit
37
  !exit
35
!endif
38
!endif
36
nsc=!linecnt $sc
39
nsc=!linecnt $sc
37
 
-
 
38
 
40
 
39
!for i=1 to $nsc
41
!for i=1 to $nsc
40
  l=!line $i of $sc
42
  l=!line $i of $sc
41
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
43
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
42
  !if $S_=0
44
  !if $S_=0
43
    !reset jj
45
    !reset jj
44
  !else
46
  !else
45
    !set jj=!positionof item $S_ in $checksessions
47
    !set jj=!positionof item $S_ in $checksessions
46
    !set score$(jj)_$e_=$s_
48
    !set score$(jj)_$e_=$s_
47
    !set exam_$jj=!append item $e_ to $(exam_$jj)
49
    !set exam_$jj=!append item $e_ to $(exam_$jj)
-
 
50
    !set sess_$e_=!append item $jj to $(sess_$e_)
48
    !set exam_$jj=!listuniq $(exam_$jj)
51
    !set exam_$jj=!listuniq $(exam_$jj)
49
    !if $s_ issametext 00
52
    !if $s_ issametext 00
50
      start$(jj)_$e_=$t_
53
      start$(jj)_$e_=$t_
51
      dur$(jj)_$e_=$T_
54
      dur$(jj)_$e_=$T_
52
    !endif
55
    !endif