Subversion Repositories wimsdev

Rev

Rev 6353 | Rev 11774 | 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
6353 bpr 12
   confirm=
23 reyssat 13
  !else
6353 bpr 14
  !!!verification a faire ....
15
   !if $wims_superclass=$empty or $wims_superclass=$wims_class
16
    !for cl_ in $sharable_sheet
17
     !set tmp=!defof sharing_sheet in wimshome/log/classes/$cl_/neighbors
18
     !if $wims_class iswordof $tmp
19
       confirm=
20
       confirmed=
21
       error=sharing_sheet
22
       !reset tmp
23
       !exit
24
     !endif
25
    !next
26
   !else
27
    confirm=
28
    confirmed=
29
    error=sharing_sheet
30
    !exit
31
   !endif
23 reyssat 32
  !endif
33
 !endif
34
 examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam[0-9]*
35
 !if $examtest!=$empty
36
  error=sheet_in_exam
37
  !exit
38
 !endif
39
 worktest=!sh cd $wims_home/log/classes/$wims_class\
40
   list=`ls score | grep -v '\.exam$$'`\
41
   if [ ! -e "$$list" ]; then\
42
    cd score; awk 'length($$1)==17 && $$3==$sheet {print FILENAME; nextfile}' $$list\
43
   fi
44
 !if $worktest!=$empty
45
  worktest2=!replace word supervisor by $ in $worktest
46
  worktest2=!trim $worktest2
47
  !if $confirm!=yes or (share iswordof $confirmed and $worktest2!=$empty)
48
   error=non_empty_activities
49
   !exit
50
  !else
51
   worktest=!singlespace $worktest
52
   !sh cd $wims_home/log/classes/$wims_class\
53
   for user in $worktest\
54
   do\
55
    awk 'length($$1)!=17 || $$3!=$sheet {print}' score/$$user >awk.tmp1\
7608 bpr 56
    awk 'length($$1)==17 && $$3==$sheet {print $$0"	deact noscore"}' score/$$user >awk.tmp2\
23 reyssat 57
    mv awk.tmp1 score/$$user\
58
    cat awk.tmp2 >>noscore/$$user\
59
   done\
60
   rm -f awk.tmp*
61
  !endif
62
 !endif
63
 !distribute item 1,0 into update_field,update_content
64
 !read update.sheet
65
 !read writeweights
66
 job=
4598 bpr 67
 wims_class_log=deactivate sheet $sheet by $wims_realuser