Rev 5755 | Rev 10640 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
4799 | guerimand | 1 | $U_gotoclass3 |
4819 | czzmrn | 2 | !if $wims_superclass=$empty |
4820 | czzmrn | 3 | !let wims_superclass=$wims_class |
4819 | czzmrn | 4 | !endif |
4770 | guerimand | 5 | !let user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_user |
6 | !! ----------- definition des droits de connexion supervisor |
||
5755 | bpr | 7 | <br/> |
4770 | guerimand | 8 | !let compsup=$empty |
9 | !for cls in $user_supervise |
||
10 | !let tmp=!replace internal / by , in $cls |
||
11 | !let nb=!itemcnt $tmp |
||
12 | !for l=2 to $nb |
||
13 | !let t=!replace internal , by / in $(tmp[1 to $l]) |
||
14 | !let compsup=!append line $t to $compsup |
||
15 | !next l |
||
16 | !next cls |
||
17 | !let compsup=!sh echo "$compsup" | sort | uniq; |
||
18 | !let compsup=!lines2items $compsup |
||
19 | !let compsup=!nospace $compsup |
||
20 | |||
4799 | guerimand | 21 | !let tab=0 |
4770 | guerimand | 22 | !for cls in $compsup |
23 | !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def |
||
24 | !let t=!positionof item $(don[1]) in level,class,program,course |
||
4799 | guerimand | 25 | !if $t=3 |
26 | !let ta=2 |
||
27 | !else |
||
28 | !let ta=$t |
||
29 | !endif |
||
30 | !if $tab!=$ta |
||
31 | !if $tab>$ta |
||
32 | !for k=$ta+1 to $tab |
||
33 | </ul> |
||
34 | !next k |
||
35 | !else |
||
36 | !for k=$tab+1 to $ta |
||
37 | <ul class="wims_subclasses"> |
||
38 | !next k |
||
39 | !endif |
||
40 | !endif |
||
41 | !let tab=$ta |
||
4770 | guerimand | 42 | !if $t=4 |
43 | !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def |
||
44 | !if $tmp=program |
||
45 | !let t=5 |
||
46 | !endif |
||
47 | !endif |
||
7679 | bpr | 48 | <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) : |
4770 | guerimand | 49 | !if $cls notitemof $user_supervise |
50 | $(don[2]) |
||
51 | !else |
||
4799 | guerimand | 52 | !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2]) |
4770 | guerimand | 53 | !endif |
4799 | guerimand | 54 | ($(don[3])) </span> </li> |
4770 | guerimand | 55 | !next cls |
4799 | guerimand | 56 | !for k=1 to $tab |
57 | </ul> |
||
58 | !next k |