Rev 10747 | Rev 10945 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10747 | Rev 10762 | ||
---|---|---|---|
Line 27... | Line 27... | ||
27 | !set user_supervise=!nonempty items $user_supervise |
27 | !set user_supervise=!nonempty items $user_supervise |
28 | !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 |
29 | !endif |
29 | !endif |
30 | 30 | ||
31 | !! ----------- definition des droits de connexion supervisor |
31 | !! ----------- definition des droits de connexion supervisor |
- | 32 | ||
- | 33 | !!! as a supervisor |
|
32 | !reset compsup |
34 | !reset compsup |
33 | !for cls in $user_supervise |
35 | !for cls in $user_supervise |
34 | !if $wims_class isin $cls |
36 | !if $wims_class isin $cls |
35 | !let tmp=!replace internal / by , in $cls |
37 | !let tmp=!replace internal / by , in $cls |
36 | !if $tmp!=$empty |
38 | !if $tmp!=$empty |
37 | !let compsup=!append line $tmp to $compsup |
39 | !let compsup=!append line $tmp to $compsup |
38 | !endif |
40 | !endif |
39 | !endif |
41 | !endif |
40 | !next cls |
42 | !next cls |
41 | !let compsup=!sh echo "$compsup" | sort | uniq; |
43 | !let compsup=!sh echo "$compsup" | sort | uniq; |
- | 44 | ||
- | 45 | !let user_participate=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$wims_realuser |
|
- | 46 | ||
42 | !if |
47 | !if $class_type=3 and $class_typename!=level |
- | 48 | !!in a class |
|
- | 49 | $U_gotoclass31 |
|
- | 50 | !else |
|
43 | $U_gotoclass3 |
51 | $U_gotoclass3 |
44 | !endif |
52 | !endif |
45 | !let user_supervise_=$user_supervise |
53 | !let user_supervise_=$user_supervise |
46 | !read adm/class/graphclass supervise\ |
54 | !read adm/class/graphclass supervise\ |
47 | $compsup |
55 | $compsup |
48 | 56 | ||
49 | ! |
57 | !if $user_participate=$empty or $wims_class/ notin $user_participate |
50 | !if $user_participate=$empty |
- | |
51 | !exit |
58 | !exit |
52 | !endif |
59 | !endif |
- | 60 | ||
- | 61 | !!! as a student |
|
53 | !reset compsup |
62 | !reset compsup |
- | 63 | !if $class_type=3 and $class_typename!=level |
|
- | 64 | !!in a class |
|
- | 65 | $U_gotoclass11 |
|
- | 66 | !else |
|
54 | $U_gotoclass1 |
67 | $U_gotoclass1 |
- | 68 | !endif |
|
55 | 69 | ||
56 | !for cls in $user_participate |
70 | !for cls in $user_participate |
57 | !if $wims_class isin $cls |
71 | !if $wims_class isin $cls |
58 | !let tmp=!replace internal / by , in $cls |
72 | !let tmp=!replace internal / by , in $cls |
59 | !if $tmp!=$empty |
73 | !if $tmp!=$empty |