Subversion Repositories wimsdev

# CLEAN WORKSHEET script :

# test if a sheet has already been used (if there are scores for it), and replace scores by "deact noscore"

# Input :

#   $wims_home

#   $wims_class

#   $sheet

# Output :

#  if $worktest isn't empty, there are scores associated to the sheet.

#You must call before : !read check.worksheet

!if $worktest!=$empty

  worktest=!singlespace $worktest

  !sh cd $wims_home/log/classes/$wims_class\

  for user in $worktest\

   do\

    awk 'length($$1)!=17 || $$3!=$sheet {print}' score/$$user >awk.tmp1\

    awk 'length($$1)==17 && $$3==$sheet {print $$0" deact noscore"}' score/$$user >awk.tmp2\

    mv awk.tmp1 score/$$user\

    cat awk.tmp2 >>noscore/$$user\

   done\

  rm -f awk.tmp*

!endif