Subversion Repositories wimsdev

Rev

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

Rev 10651 Rev 10669
Line 27... Line 27...
27 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
 27 
  !set user_supervise=!makelist $wims_superclass/x for x in $user_supervise
28 
!endif
 28 
!endif
29 
 
 29 
 
30 
!! ----------- definition des droits de connexion supervisor
 30 
!! ----------- definition des droits de connexion supervisor
31 
 
 31 
 
32 
!let compsup=$empty
 32 
!reset compsup
33 
!for cls in $user_supervise
 33 
!for cls in $user_supervise
34 
 !let tmp=!replace internal / by , in $cls
 34 
  !let tmp=!replace internal / by , in $cls
35 
 !let nb=!itemcnt $tmp
 - 
 
36 
 !for l=2 to $nb
 - 
 
37 
  !let t=!replace internal , by / in $(tmp[1 to $l])
 - 
 
38 
  !let compsup=!append line $t to $compsup
 35 
  !let compsup=!append line $tmp to $compsup
39 
 !next l
 - 
 
40 
!next cls
 36 
!next cls
- 
 
 37 
 
- 
 
 38 
!let compsup=!sh echo "$compsup" | sort | uniq;
- 
 
 39 
$U_gotoclass3
- 
 
 40 
!read classgraph.phtml supervise\
- 
 
 41 
$compsup
- 
 
 42 
 
- 
 
 43 
!let user_particpate=!defof user_particpate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
- 
 
 44 
 
- 
 
 45 
!reset compsup
- 
 
 46 
$U_gotoclass1
- 
 
 47 
 
- 
 
 48 
!for cls in $user_participate
- 
 
 49 
  !let tmp=!replace internal / by , in $cls
- 
 
 50 
  !let compsup=!append line $tmp to $compsup
- 
 
 51 
!next cls
- 
 
 52 
 
41 
!let compsup=!sh echo "$compsup" | sort | uniq;
 53 
!let compsup=!sh echo "$compsup" | sort | uniq;
42 
!let compsup=!lines2items $compsup
 - 
 
43 
!let compsup=!nospace $compsup
 - 
 
44 
 
 54 
 
45 
!read classgraph.phtml supervise,$compsup
 55 
!read classgraph.phtml participate\
- 
 
 56 
$compsup
- 
 
 57