Subversion Repositories wimsdev

Rev

Rev 11774 | Rev 14395 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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