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

 tmp_recshare=!defof class_recshare in wimshome/log/classes/$wims_class/.def

 !if ($sharable_sheet!=$empty or $sharing_sheet!=$empty or $tmp_recshare=main) and share notwordof $confirmed

  !reset tmp_recshare

  !if $confirm=yes and $wims_ismanager>1

   confirmed=share

   confirm=

  !else

  !!!verification a faire ....

   !if $wims_superclass=$empty or $wims_superclass=$wims_class

    !for cl_ in $sharable_sheet

     !set tmp=!defof sharing_sheet in wimshome/log/classes/$cl_/neighbors

     !if $wims_class iswordof $tmp

       confirm=

       confirmed=

       error=sharing_sheet

       !reset tmp

       !exit

     !endif

    !next

   !else

    confirm=

    confirmed=

    error=sharing_sheet

    !exit

   !endif

  !endif

 !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