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