Subversion Repositories wimsdev

Rev

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

Rev 10674 Rev 10703
Line 1... Line -...
1
 
-
 
2
!if $wims_superclass=$empty
1
!if $wims_superclass=$empty
3
  !let wims_superclass=$wims_class
2
  !let wims_superclass=$wims_class
4
!endif
3
!endif
5
!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
4
!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
6
!set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
5
!set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
Line 29... Line 28...
29
 
28
 
30
!! ----------- definition des droits de connexion supervisor
29
!! ----------- definition des droits de connexion supervisor
31
 
30
 
32
!reset compsup
31
!reset compsup
33
!for cls in $user_supervise
32
!for cls in $user_supervise
-
 
33
  !if $wims_class isin $cls
34
  !let tmp=!replace internal / by , in $cls
34
    !let tmp=!replace internal / by , in $cls
35
  !let compsup=!append line $tmp to $compsup
35
    !let compsup=!append line $tmp to $compsup
-
 
36
  !endif
36
!next cls
37
!next cls
37
 
-
 
38
!let compsup=!sh echo "$compsup" | sort | uniq;
38
!let compsup=!sh echo "$compsup" | sort | uniq;
39
$U_gotoclass3
39
$U_gotoclass3
-
 
40
 
40
!read classgraph.phtml supervise\
41
!read classgraph.phtml supervise\
41
$compsup
42
$compsup
42
 
43
 
43
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
44
!let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
44
!if $user_participate=$empty
45
!if $user_participate=$empty
Line 46... Line 47...
46
!endif
47
!endif
47
!reset compsup
48
!reset compsup
48
$U_gotoclass1
49
$U_gotoclass1
49
 
50
 
50
!for cls in $user_participate
51
!for cls in $user_participate
-
 
52
  !if $wims_class isin $cls
51
  !let tmp=!replace internal / by , in $cls
53
    !let tmp=!replace internal / by , in $cls
52
  !let compsup=!append line $tmp to $compsup
54
    !let compsup=!append line $tmp to $compsup
-
 
55
  !endif
53
!next cls
56
!next cls
54
 
57
 
55
!let compsup=!sh echo "$compsup" | sort | uniq;
58
!let compsup=!sh echo "$compsup" | sort | uniq;
56
 
59
 
57
!read classgraph.phtml participate\
60
!read classgraph.phtml participate\