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 |
|
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 |
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 |
67 | !read adm/class/graphclass participate\ |
61 | $compsup |
68 | $compsup |
62 | - |