Subversion Repositories wimsdev

Rev

Rev 2210 | Rev 6353 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
 sec=!defof class_secure in wimshome/log/classes/$wims_class/.def
2
 sec=!trim $sec
3
 htest=!checkhost $sec
4
 !if ($sec=$empty or $htest<1) and $wims_ismanager<2
5
  error=not_secure
6
  !exit
7
 !endif
8
 !readdef wimshome/log/classes/$wims_class/neighbors
9
 !if ($sharable_sheet!=$empty or $sharing_sheet!=$empty) and share notwordof $confirmed
10
  !if $confirm=yes and $wims_ismanager>1
11
   confirmed=share
12
  !else
13
   confirm=
14
   confirmed=
15
   error=sharing_sheet
16
   !exit
17
  !endif
18
  confirm=
19
 !endif
20
 examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam[0-9]*
21
 !if $examtest!=$empty
22
  error=sheet_in_exam
23
  !exit
24
 !endif
25
 worktest=!sh cd $wims_home/log/classes/$wims_class\
26
   list=`ls score | grep -v '\.exam$$'`\
27
   if [ ! -e "$$list" ]; then\
28
    cd score; awk 'length($$1)==17 && $$3==$sheet {print FILENAME; nextfile}' $$list\
29
   fi
30
 !if $worktest!=$empty
31
  worktest2=!replace word supervisor by $ in $worktest
32
  worktest2=!trim $worktest2
33
  !if $confirm!=yes or (share iswordof $confirmed and $worktest2!=$empty)
34
   error=non_empty_activities
35
   !exit
36
  !else
37
   worktest=!singlespace $worktest
38
   !sh cd $wims_home/log/classes/$wims_class\
39
   for user in $worktest\
40
   do\
41
    awk 'length($$1)!=17 || $$3!=$sheet {print}' score/$$user >awk.tmp1\
42
    awk 'length($$1)==17 && $$3==$sheet {print $$0" deact noscore"}' score/$$user >awk.tmp2\
43
    mv awk.tmp1 score/$$user\
44
    cat awk.tmp2 >>noscore/$$user\
45
   done\
46
   rm -f awk.tmp*
47
  !endif
48
 !endif
49
 !distribute item 1,0 into update_field,update_content
50
 !read update.sheet
51
 !read writeweights
52
 job=
4598 bpr 53
 wims_class_log=deactivate sheet $sheet by $wims_realuser