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