Subversion Repositories wimsdev

Rev

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

Rev 4598 Rev 6353
Line 7... Line 7...
7 
 !endif
 7 
 !endif
8 
 !readdef wimshome/log/classes/$wims_class/neighbors
 8 
 !readdef wimshome/log/classes/$wims_class/neighbors
9 
 !if ($sharable_sheet!=$empty or $sharing_sheet!=$empty) and share notwordof $confirmed
 9 
 !if ($sharable_sheet!=$empty or $sharing_sheet!=$empty) and share notwordof $confirmed
10 
  !if $confirm=yes and $wims_ismanager>1
 10 
  !if $confirm=yes and $wims_ismanager>1
11 
   confirmed=share
 11 
   confirmed=share
12 
  !else
 - 
 
13 
   confirm=
 12 
   confirm=
- 
 
 13 
  !else
- 
 
 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=
14 
   confirmed=
 28 
    confirmed=
15 
   error=sharing_sheet
 29 
    error=sharing_sheet
16 
   !exit
 30 
    !exit
- 
 
 31 
   !endif
17 
  !endif
 32 
  !endif
18 
  confirm=
 - 
 
19 
 !endif
 33 
 !endif
20 
 examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam[0-9]*
 34 
 examtest=!sh grep '\<$sheet\.' $wims_home/log/classes/$wims_class/exams/.exam[0-9]*
21 
 !if $examtest!=$empty
 35 
 !if $examtest!=$empty
22 
  error=sheet_in_exam
 36 
  error=sheet_in_exam
23 
  !exit
 37 
  !exit