Subversion Repositories wimsdev

Rev

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

Rev 10747 Rev 10762
Line 27... Line 27...
27 
  !set user_supervise=!nonempty items $user_supervise
 27 
  !set user_supervise=!nonempty items $user_supervise
28 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
 28 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
29 
!endif
 29 
!endif
30 
 
 30 
 
31 
!! ----------- definition des droits de connexion supervisor
 31 
!! ----------- definition des droits de connexion supervisor
- 
 
 32 
 
- 
 
 33 
!!! as a supervisor
32 
!reset compsup
 34 
!reset compsup
33 
!for cls in $user_supervise
 35 
!for cls in $user_supervise
34 
  !if $wims_class isin $cls
 36 
  !if $wims_class isin $cls
35 
    !let tmp=!replace internal / by , in $cls
 37 
    !let tmp=!replace internal / by , in $cls
36 
    !if $tmp!=$empty
 38 
    !if $tmp!=$empty
37 
      !let compsup=!append line $tmp to $compsup
 39 
      !let compsup=!append line $tmp to $compsup
38 
    !endif
 40 
    !endif
39 
  !endif
 41 
  !endif
40 
!next cls
 42 
!next cls
41 
!let compsup=!sh echo "$compsup" | sort | uniq;
 43 
!let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 44 
 
- 
 
 45 
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
- 
 
 46 
 
42 
!if $user_participate!=$empty
 47 
!if $class_type=3 and $class_typename!=level
- 
 
 48 
!!in a class
- 
 
 49 
    $U_gotoclass31
- 
 
 50 
!else
43 
  $U_gotoclass3
 51 
    $U_gotoclass3
44 
!endif
 52 
!endif
45 
!let user_supervise_=$user_supervise
 53 
!let user_supervise_=$user_supervise
46 
!read adm/class/graphclass supervise\
 54 
!read adm/class/graphclass supervise\
47 
$compsup
 55 
$compsup
48 
 
 56 
 
49 
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
 57 
!if $user_participate=$empty or $wims_class/ notin $user_participate
50 
!if $user_participate=$empty
 - 
 
51 
  !exit
 58 
  !exit
52 
!endif
 59 
!endif
- 
 
 60 
 
- 
 
 61 
!!! as a student
53 
!reset compsup
 62 
!reset compsup
- 
 
 63 
!if $class_type=3 and $class_typename!=level
- 
 
 64 
!!in a class
- 
 
 65 
    $U_gotoclass11
- 
 
 66 
!else
54 
$U_gotoclass1
 67 
    $U_gotoclass1
- 
 
 68 
!endif
55 
 
 69 
 
56 
!for cls in $user_participate
 70 
!for cls in $user_participate
57 
  !if $wims_class isin $cls
 71 
  !if $wims_class isin $cls
58 
    !let tmp=!replace internal / by , in $cls
 72 
    !let tmp=!replace internal / by , in $cls
59 
    !if $tmp!=$empty
 73 
    !if $tmp!=$empty