Subversion Repositories wimsdev

 sec=!defof class_secure in wimshome/log/classes/$wims_class/.def
 sec=!trim $sec
 htest=!checkhost $sec
 !if ($sec=$empty or $htest<1) and $wims_ismanager<2
  error=not_secure
  !exit
 !endif
 !readdef wimshome/log/classes/$wims_class/neighbors
 !if ($sharable_sheet!=$empty or $sharing_sheet!=$empty) and share notwordof $confirmed
  !if $confirm=yes and $wims_ismanager>1
   confirmed=share
  !else
   confirm=
   confirmed=
   error=sharing_sheet
   !exit
  !endif
  confirm=
 !endif
 examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam[0-9]*
 !if $examtest!=$empty
  error=sheet_in_exam
  !exit
 !endif
 worktest=!sh cd $wims_home/log/classes/$wims_class\
   list=`ls score | grep -v '\.exam$$'`\
   if [ ! -e "$$list" ]; then\
    cd score; awk 'length($$1)==17 && $$3==$sheet {print FILENAME; nextfile}' $$list\
   fi
 !if $worktest!=$empty
  worktest2=!replace word supervisor by $ in $worktest
  worktest2=!trim $worktest2
  !if $confirm!=yes or (share iswordof $confirmed and $worktest2!=$empty)
   error=non_empty_activities
   !exit
  !else
   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
 !endif
 !distribute item 1,0 into update_field,update_content
 !read update.sheet
 !read writeweights
 job=
 wims_class_log=deactivate sheet $sheet by $wims_realuser