Rev 10651 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10651 | Rev 10669 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !set statut=! |
1 | !set statut=!line 1 of $wims_read_parm |
2 | !set compsup=! |
2 | !set compsup=!line 2 to -1 of $wims_read_parm |
3 | !set |
3 | !set compsup1=!column 2 to -1 of $compsup |
- | 4 | !set col1=!column 1 of $compsup1 |
|
4 | ! |
5 | !set col1=!listuniq $col1 |
- | 6 | !set col1cnt=!itemcnt $col1 |
|
- | 7 | <ul class="wims_subclasses"> |
|
5 | !for |
8 | !for j1=1 to $col1cnt |
6 | ! |
9 | !set cls1=$wims_superclass/$(col1[$j1]) |
- | 10 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def |
|
- | 11 | <li><span class="wims_classes_direct_$(don[1])"> |
|
- | 12 | !if $cls1 isitemof $(user_$statut) |
|
- | 13 | !if $statut=supervise |
|
- | 14 | !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2]) |
|
- | 15 | !else |
|
- | 16 | !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2]) |
|
7 | ! |
17 | !endif |
- | 18 | !else |
|
- | 19 | $(don[2]) |
|
8 | !endif |
20 | !endif |
- | 21 | </span> |
|
- | 22 | !set compsup2=!select $compsup1 where column 1=$(col1[$j1]) |
|
- | 23 | !set col2=!column 2 of $compsup2 |
|
- | 24 | !set col2=!listuniq $col2 |
|
- | 25 | !set col2cnt=!itemcnt $col2 |
|
- | 26 | !if $col2cnt>0 |
|
- | 27 | !set compsup2=!column 2 to -1 of $compsup2 |
|
- | 28 | <ul class="wims_subclasses"> |
|
- | 29 | !for j2=1 to $col2cnt |
|
- | 30 | !set cls2=!nospace $cls1/$(col2[$j2]) |
|
9 | ! |
31 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
10 |
|
32 | <li><span class="wims_classes_direct_$(don[1])"> |
- | 33 | !if $cls2 isitemof $(user_$statut) |
|
- | 34 | !if $statut=supervise |
|
- | 35 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
|
- | 36 | !else |
|
- | 37 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
|
11 |
|
38 | !endif |
12 | ! |
39 | !else |
- | 40 | $(don[2]) |
|
13 | !endif |
41 | !endif |
- | 42 | </span> |
|
- | 43 | !set compsup3=!select $compsup2 where column 1=$(col2[$j2]) |
|
- | 44 | !set col3=!column 2 of $compsup3 |
|
- | 45 | !set col3=!listuniq $col3 |
|
- | 46 | !set col3cnt=!itemcnt $col3 |
|
14 | !if |
47 | !if $col3cnt!=0 |
15 |
|
48 | <ul> |
- | 49 | !set compsup3=!column 2 to -1 of $compsup3 |
|
- | 50 | !for j3=1 to $col3cnt |
|
- | 51 | !set cls3=!nospace $cls2/$(col3[$j3]) |
|
- | 52 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
|
- | 53 | <li><span class="wims_classes_direct_$(don[1])"> |
|
- | 54 | !if $cls3 isitemof $(user_$statut) |
|
- | 55 | !if $statut=supervise |
|
- | 56 | !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2]) |
|
16 | !else |
57 | !else |
- | 58 | !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2]) |
|
- | 59 | !endif |
|
- | 60 | ($(don[3])) |
|
17 |
|
61 | !else |
- | 62 | $(don[2]) |
|
18 | !endif |
63 | !endif |
- | 64 | </span> |
|
- | 65 | </li> |
|
19 | ! |
66 | !next j3 |
20 |
|
67 | </ul> |
21 |
|
68 | !endif col3cnt |
- | 69 | </li> |
|
- | 70 | !next j2 |
|
22 | </ul> |
71 | </ul> |
23 | !next k |
- | |
24 | !else |
- | |
25 | !for k=$tab+1 to $ta |
- | |
26 | <ul class="wims_subclasses"> |
- | |
27 | !next k |
- | |
28 | !endif |
72 | !endif col2cnt |
29 | !endif |
- | |
30 | !let tab=$ta |
- | |
31 | !if $t=4 |
- | |
32 | !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def |
- | |
33 | !if $tmp=program |
- | |
34 | !let t=5 |
- | |
35 | !endif |
- | |
36 | !endif |
- | |
37 | <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) : |
- | |
38 | !if $cls notitemof $(user_$statut) |
- | |
39 | $(don[2]) |
- | |
40 | !else |
- | |
41 | !if $statut=supervise |
- | |
42 | !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2]) |
- | |
43 |
|
73 | </li> |
44 | !href module=adm/class/classes&type=authparticipant&class=$cls&auth_user=$u_ $(don[2]) |
- | |
45 | !endif |
- | |
46 | !endif |
- | |
47 | ($(don[3])) </span> </li> |
- | |
48 | :encls |
- | |
49 | !next |
74 | !next j1 |
50 | !for k=1 to $tab |
- | |
51 | </ul> |
75 | </ul> |
52 | !next k |
- | |
53 | !reset compsup |
- |