1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
!reset compsup1 compsup2 compsup3
!set statut=!line 1 of $wims_read_parm
!set compsup=!line 2 to -1 of $wims_read_parm
!set compsup1=!column 2 to -1 of $compsup
!set col1=!column 1 of $compsup1
!set col1=!listuniq $col1
!set col1cnt=!itemcnt $col1
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def
!!program without icourses
!if $(don[1])=program and $col1cnt=0
<ul class="wims_subclasses">
!read adm/class/graphprog $wims_class
</ul>
!endif
!if $col1cnt=0
!exit
!endif
!set classrad=$wims_superclass
!while $classrad!=$wims_class
!set classrad=$classrad/$col1
!set lcnt=!linecnt $compsup1
!set compsup1=!column 2 to -1 of $compsup1
!set col1=!column 1 of $compsup1
!set col1=!listuniq $col1
!set col1cnt=!itemcnt $col1
!endwhile
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
!if $col1cnt=0 and $(don[1])!=program
!exit
!endif
<ul class="wims_subclasses">
!if $(don[1])=program
!read adm/class/graphprog $classrad
!endif
!if $(don[1])=class
!read adm/class/graphclsprog $classrad
!endif
!for j1=1 to $col1cnt
!set cls1=!nospace $classrad/$(col1[$j1])
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
!reset tmp
!if $(don[1])=course
!set tmp=$ class="inline"
!endif
<li$tmp><span class="wims_classes_direct_$(don[1])">
!reset tmp
!if $cls1 isitemof $(user_$(statut)_)
!if $statut=supervise
!href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
!else
!href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
!endif
!else
!if $(don[1])=course
!href module=adm/class/reguser&class=$cls1&user_auth=$u_&subclass=yes $(don[2]) (inscription)
!else
$(don[2])
!endif
!endif
</span>
!if $(don[1])=program
<ul>
!read adm/class/graphprog $cls1
</ul>
!endif
!set compsup2=!select $compsup1 where column 1=$(col1[$j1])
!set col2=!column 2 of $compsup2
!set col2=!listuniq $col2
!set col2cnt=!itemcnt $col2
!if $col2cnt>0
!set compsup2=!column 2 to -1 of $compsup2
<ul class="wims_subclasses">
!for j2=1 to $col2cnt
!set cls2=!nospace $cls1/$(col2[$j2])
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
!reset tmp
!if $(don[1])=course
!set tmp=$ class="inline"
!endif
<li$tmp><span class="wims_classes_direct_$(don[1])">
!if $cls2 isitemof $(user_$(statut)_)
!if $statut=supervise
!href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
!else
!href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
!endif
!else
!if $(don[1])=course
!href module=adm/class/reguser&class=$cls2&user_auth=$u_&subclass=yes $(don[2])
!else
$(don[2])
!endif
!endif
</span>
!if $(don[1])=program
<ul>
!read adm/class/graphprog $cls2
</ul>
!endif
!set compsup3=!select $compsup2 where column 1=$(col2[$j2])
!set col3=!column 2 of $compsup3
!set col3=!listuniq $col3
!set col3cnt=!itemcnt $col3
!if $col3cnt!=0
<ul>
!set compsup3=!column 2 to -1 of $compsup3
!for j3=1 to $col3cnt
!set cls3=!nospace $cls2/$(col3[$j3])
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
!reset tmp
!if $(don[1])=course
!set tmp=$ class="inline"
!endif
<li$tmp><span class="wims_classes_direct_$(don[1])">
!reset tmp
!if $cls3 isitemof $(user_$(statut)_)
!if $statut=supervise
!href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
!else
!href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
!endif
($(don[3]))
!else
!if $(don[1])=course
!href module=adm/class/reguser&class=$cls3&user_auth=$u_&subclass=yes $(don[2]) (inscription)
!else
$(don[2])
!endif
!endif
</span>
!if $(don[1])=program
<ul>
!read adm/class/graphprog $cls3
</ul>
!endif
</li>
!next j3
</ul>
!endif col3cnt
</li>
!next j2
</ul>
!endif col2cnt
</li>
!endif
!next j1
</ul>
|
