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\ |