Subversion Repositories wimsdev

Rev

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

Rev 16148 Rev 16378
Line 35... Line 35...
35
!! -------- reduce file length with only concerned session before wims action
35
!! -------- reduce file length with only concerned session before wims action
36
  tmp_=$empty
36
  tmp_=$empty
37
  checksessions=!text select char 0123456789AZERTYUIOPMLKJHGFDSQWXCVBN,azertyuiopmlkjhgfdsqwxcvbn in $checksessions
37
  checksessions=!text select char 0123456789AZERTYUIOPMLKJHGFDSQWXCVBN,azertyuiopmlkjhgfdsqwxcvbn in $checksessions
38
  !for k_ in $checksessions
38
  !for k_ in $checksessions
39
    tmp_=!append word a["$k_"]=0; to $tmp_
39
    tmp_=!append word a["$k_"]=0; to $tmp_
-
 
40
    !reset ip_$(k_)
40
  !next k_
41
  !next k_
41
  !sh awk 'BEGIN{$tmp_} {if ($$6 in a || ($$6=="0" && flag==1)){print $$0; flag=1;} else {flag=0};}' $wims_home/log/classes/$wims_class/score/$uu.exam > $wims_home/sessions/$wims_session/tmpuser.exam;
42
  !sh awk 'BEGIN{$tmp_} {if ($$6 in a || ($$6=="0" && flag==1)){print $$0; flag=1;} else {flag=0};}' $wims_home/log/classes/$wims_class/score/$uu.exam > $wims_home/sessions/$wims_session/tmpuser.exam;
42
!! ---------------------
43
!! ---------------------
43
sc=!record 0 of wimshome/sessions/$wims_session/tmpuser.exam
44
sc=!record 0 of wimshome/sessions/$wims_session/tmpuser.exam
44
!!sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
45
!!sc=!record 0 of wimshome/log/classes/$wims_class/score/$uu.exam
45
!if $sc=$empty
46
!if $sc=$empty
46
  !exit
47
  !exit
47
!endif
48
!endif
48
nsc=!linecnt $sc
-
 
49
 
49
 
-
 
50
nsc=!linecnt $sc
-
 
51
!reset scorereducedbyip
50
!for i=1 to $nsc
52
!for i=1 to $nsc
51
  l=!line $i of $sc
53
  l=!line $i of $sc
52
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
54
  !distribute words $l into e_,s_,t__,T_,i_,S_,t_
53
  !if $S_=0
55
  !if $S_=0
54
    !reset jj
56
    !reset jj
55
  !else
57
  !else
56
    !set jj=!positionof item $S_ in $checksessions
58
    !set jj=!positionof item $S_ in $checksessions
-
 
59
    !if $(ip_$jj)=$i_
-
 
60
        scoreip$(jj)_$e_=$s_
-
 
61
    !endif
57
    !set score$(jj)_$e_=$s_
62
    !set score$(jj)_$e_=$s_
58
    !set exam_$jj=!append item $e_ to $(exam_$jj)
63
    !set exam_$jj=!append item $e_ to $(exam_$jj)
59
    !set sess_$e_=!append item $jj to $(sess_$e_)
64
    !set sess_$e_=!append item $jj to $(sess_$e_)
60
    !set exam_$jj=!listuniq $(exam_$jj)
65
    !set exam_$jj=!listuniq $(exam_$jj)
61
    !if $s_ issametext 00
66
    !if $s_ issametext 00
62
      start$(jj)_$e_=$t_
67
      start$(jj)_$e_=$t_
63
      dur$(jj)_$e_=$T_
68
      dur$(jj)_$e_=$T_
-
 
69
      ip_$jj=$i_
64
    !endif
70
    !endif
65
    !if $t__ issametext -1
71
    !if $t__ issametext -1
66
      duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
72
      duree$(jj)_$(e_)=$[$T_ - $(dur$(jj)_$e_)]
-
 
73
      !if $(score$(jj)_$e_)!=$(scoreip$(jj)_$e_)
-
 
74
        scorereducedbyip=1
-
 
75
      !endif
67
    !endif
76
    !endif
68
  !endif
77
  !endif
69
!next i
78
!next i
70
!for i in $activexams
79
!for i in $activexams
71
  !if $(Dureeexam_$i)!=$empty
80
  !if $(Dureeexam_$i)!=$empty