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\