Subversion Repositories wimsdev

Rev

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

Rev 16378 Rev 16618
Line 37... Line 37...
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
    !reset ip_$(k_)
41
  !next k_
41
  !next k_
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
  !sh if [ -e $wims_home/log/classes/$wims_class/score/$uu.exam ]; then 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; fi;
43
!! ---------------------
43
!! ---------------------
44
sc=!record 0 of wimshome/sessions/$wims_session/tmpuser.exam
44
sc=!record 0 of wimshome/sessions/$wims_session/tmpuser.exam
45
!!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
46
!if $sc=$empty
46
!if $sc=$empty
47
  !exit
47
  !exit