Rev 10924 | Rev 13147 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10924 | Rev 12555 | ||
---|---|---|---|
Line 17... | Line 17... | ||
17 | !exit |
17 | !exit |
18 | !endif |
18 | !endif |
19 | 19 | ||
20 | !set classrad=$wims_superclass |
20 | !set classrad=$wims_superclass |
21 | !while $classrad!=$wims_class |
21 | !while $classrad!=$wims_class |
22 |
|
22 | !set classrad=$classrad/$col1 |
23 |
|
23 | !set lcnt=!linecnt $compsup1 |
24 |
|
24 | !set compsup1=!column 2 to -1 of $compsup1 |
25 |
|
25 | !set col1=!column 1 of $compsup1 |
26 |
|
26 | !set col1=!listuniq $col1 |
27 |
|
27 | !set col1cnt=!itemcnt $col1 |
28 | !endwhile |
28 | !endwhile |
29 | 29 | ||
30 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def |
30 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def |
31 | 31 | ||
32 | !if $col1cnt=0 and $(don[1])!=program |
32 | !if $col1cnt=0 and $(don[1])!=program |
33 | !exit |
33 | !exit |
34 | !endif |
34 | !endif |
35 | 35 | ||
36 |
|
36 | <ul class="wims_subclasses"> |
37 |
|
37 | !if $(don[1])=program |
38 |
|
38 | !read adm/class/graphprog $classrad |
- | 39 | !endif |
|
- | 40 | !for j1=1 to $col1cnt |
|
- | 41 | !set cls1=!nospace $classrad/$(col1[$j1]) |
|
- | 42 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def |
|
- | 43 | !reset tmp |
|
- | 44 | !if $(don[1])=course |
|
- | 45 | !set tmp=$ class="inline" |
|
- | 46 | !endif |
|
- | 47 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
|
- | 48 | !reset tmp |
|
- | 49 | !if $cls1 isitemof $(user_$(statut)_) |
|
- | 50 | !if $statut=supervise |
|
- | 51 | !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2]) |
|
- | 52 | !else |
|
- | 53 | !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2]) |
|
- | 54 | !endif |
|
- | 55 | !else |
|
- | 56 | $(don[2]) |
|
39 | !endif |
57 | !endif |
- | 58 | </span> |
|
- | 59 | !if $(don[1])=program |
|
- | 60 | <ul> |
|
- | 61 | !read adm/class/graphprog $cls1 |
|
- | 62 | </ul> |
|
- | 63 | !endif |
|
- | 64 | !set compsup2=!select $compsup1 where column 1=$(col1[$j1]) |
|
- | 65 | !set col2=!column 2 of $compsup2 |
|
- | 66 | !set col2=!listuniq $col2 |
|
- | 67 | !set col2cnt=!itemcnt $col2 |
|
- | 68 | !if $col2cnt>0 |
|
- | 69 | !set compsup2=!column 2 to -1 of $compsup2 |
|
- | 70 | <ul class="wims_subclasses"> |
|
40 | !for |
71 | !for j2=1 to $col2cnt |
41 | !set |
72 | !set cls2=!nospace $cls1/$(col2[$j2]) |
42 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/ |
73 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
43 | !reset tmp |
74 | !reset tmp |
44 | !if $(don[1])=course |
75 | !if $(don[1])=course |
45 | !set tmp=$ class="inline" |
76 | !set tmp=$ class="inline" |
46 | !endif |
77 | !endif |
47 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
78 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
48 | !reset tmp |
- | |
49 | !if |
79 | !if $cls2 isitemof $(user_$(statut)_) |
50 | !if $statut=supervise |
80 | !if $statut=supervise |
51 | !href module=adm/class/classes&type=authsupervisor& |
81 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
52 | !else |
82 | !else |
53 | !href module=adm/class/classes&type=authparticipant& |
83 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
54 | !endif |
- | |
55 | !else |
- | |
56 | $(don[2]) |
- | |
57 | !endif |
- | |
58 | </span> |
- | |
59 | !if $(don[1])=program |
- | |
60 | <ul> |
- | |
61 | !read adm/class/graphprog $cls1 |
- | |
62 | </ul> |
- | |
63 | !endif |
- | |
64 | !set compsup2=!select $compsup1 where column 1=$(col1[$j1]) |
- | |
65 | !set col2=!column 2 of $compsup2 |
- | |
66 | !set col2=!listuniq $col2 |
- | |
67 | !set col2cnt=!itemcnt $col2 |
- | |
68 | !if $col2cnt>0 |
- | |
69 | !set compsup2=!column 2 to -1 of $compsup2 |
- | |
70 | <ul class="wims_subclasses"> |
- | |
71 | !for j2=1 to $col2cnt |
- | |
72 | !set cls2=!nospace $cls1/$(col2[$j2]) |
- | |
73 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
- | |
74 | !reset tmp |
- | |
75 | !if $(don[1])=course |
- | |
76 | !set tmp=$ class="inline" |
- | |
77 | !endif |
84 | !endif |
78 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
- | |
79 | !if $cls2 isitemof $(user_$(statut)_) |
- | |
80 | !if $statut=supervise |
- | |
81 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
- | |
82 | !else |
- | |
83 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
- | |
84 | !endif |
- | |
85 |
|
85 | !else |
86 |
|
86 | $(don[2]) |
87 |
|
87 | !endif |
88 |
|
88 | </span> |
89 |
|
89 | !if $(don[1])=program |
90 |
|
90 | <ul> |
91 |
|
91 | !read adm/class/graphprog $cls2 |
92 |
|
92 | </ul> |
93 |
|
93 | !endif |
94 |
|
94 | !set compsup3=!select $compsup2 where column 1=$(col2[$j2]) |
95 |
|
95 | !set col3=!column 2 of $compsup3 |
96 |
|
96 | !set col3=!listuniq $col3 |
97 |
|
97 | !set col3cnt=!itemcnt $col3 |
98 |
|
98 | !if $col3cnt!=0 |
99 |
|
99 | <ul> |
100 |
|
100 | !set compsup3=!column 2 to -1 of $compsup3 |
101 |
|
101 | !for j3=1 to $col3cnt |
102 |
|
102 | !set cls3=!nospace $cls2/$(col3[$j3]) |
103 |
|
103 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
104 |
|
104 | !reset tmp |
105 |
|
105 | !if $(don[1])=course |
106 |
|
106 | !set tmp=$ class="inline" |
- | 107 | !endif |
|
- | 108 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
|
- | 109 | !reset tmp |
|
- | 110 | !if $cls3 isitemof $(user_$(statut)_) |
|
- | 111 | !if $statut=supervise |
|
- | 112 | !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2]) |
|
- | 113 | !else |
|
- | 114 | !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2]) |
|
107 | !endif |
115 | !endif |
108 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
- | |
109 | !reset tmp |
- | |
110 | !if $cls3 isitemof $(user_$(statut)_) |
- | |
111 | !if $statut=supervise |
- | |
112 | !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2]) |
- | |
113 | !else |
- | |
114 | !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2]) |
- | |
115 | !endif |
- | |
116 |
|
116 | ($(don[3])) |
117 |
|
117 | !else |
118 |
|
118 | $(don[2]) |
119 |
|
119 | !endif |
120 |
|
120 | </span> |
121 |
|
121 | !if $(don[1])=program |
122 |
|
122 | <ul> |
123 |
|
123 | !read adm/class/graphprog $cls3 |
124 |
|
124 | </ul> |
125 |
|
125 | !endif |
126 |
|
126 | </li> |
127 |
|
127 | !next j3 |
128 |
|
128 | </ul> |
129 |
|
129 | !endif col3cnt |
130 | </li> |
130 | </li> |
131 |
|
131 | !next j2 |
132 | </ul> |
132 | </ul> |
133 |
|
133 | !endif col2cnt |
134 |
|
134 | </li> |
135 |
|
135 | !endif |
136 |
|
136 | !next j1 |
137 |
|
137 | </ul> |