Subversion Repositories wimsdev

Rev

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

Rev 10703 Rev 10747
Line 20... Line 20...
20
!let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
20
!let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
21
!if $wims_user=supervisor and $wims_realuser=supervisor
21
!if $wims_user=supervisor and $wims_realuser=supervisor
22
  !set user_supervise=!column 1 of $levels\
22
  !set user_supervise=!column 1 of $levels\
23
$classes\
23
$classes\
24
$progs\
24
$progs\
-
 
25
$courses\
25
$courses
26
$icourses
-
 
27
  !set user_supervise=!nonempty items $user_supervise
26
  !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
27
!endif
29
!endif
28
 
30
 
29
!! ----------- definition des droits de connexion supervisor
31
!! ----------- definition des droits de connexion supervisor
30
 
-
 
31
!reset compsup
32
!reset compsup
32
!for cls in $user_supervise
33
!for cls in $user_supervise
33
  !if $wims_class isin $cls
34
  !if $wims_class isin $cls
34
    !let tmp=!replace internal / by , in $cls
35
    !let tmp=!replace internal / by , in $cls
-
 
36
    !if $tmp!=$empty
35
    !let compsup=!append line $tmp to $compsup
37
      !let compsup=!append line $tmp to $compsup
-
 
38
    !endif
36
  !endif
39
  !endif
37
!next cls
40
!next cls
38
!let compsup=!sh echo "$compsup" | sort | uniq;
41
!let compsup=!sh echo "$compsup" | sort | uniq;
-
 
42
!if $user_participate!=$empty
39
$U_gotoclass3
43
  $U_gotoclass3
40
 
44
!endif
-
 
45
!let user_supervise_=$user_supervise
41
!read classgraph.phtml supervise\
46
!read adm/class/graphclass supervise\
42
$compsup
47
$compsup
43
 
48
 
44
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
49
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
45
!if $user_participate=$empty
50
!if $user_participate=$empty
46
 !exit
51
  !exit
47
!endif
52
!endif
48
!reset compsup
53
!reset compsup
49
$U_gotoclass1
54
$U_gotoclass1
50
 
55
 
51
!for cls in $user_participate
56
!for cls in $user_participate
52
  !if $wims_class isin $cls
57
  !if $wims_class isin $cls
53
    !let tmp=!replace internal / by , in $cls
58
    !let tmp=!replace internal / by , in $cls
-
 
59
    !if $tmp!=$empty
54
    !let compsup=!append line $tmp to $compsup
60
      !let compsup=!append line $tmp to $compsup
-
 
61
    !endif
55
  !endif
62
  !endif
56
!next cls
63
!next cls
57
 
64
 
58
!let compsup=!sh echo "$compsup" | sort | uniq;
65
!let compsup=!sh echo "$compsup" | sort | uniq;
59
 
-
 
-
 
66
!let user_participate_=$user_participate
60
!read classgraph.phtml participate\
67
!read adm/class/graphclass participate\
61
$compsup
68
$compsup
62
 
-