Rev 10852 | Rev 12555 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
10747 | bpr | 1 | !reset compsup1 compsup2 compsup3 |
10669 | bpr | 2 | !set statut=!line 1 of $wims_read_parm |
3 | !set compsup=!line 2 to -1 of $wims_read_parm |
||
4 | !set compsup1=!column 2 to -1 of $compsup |
||
5 | !set col1=!column 1 of $compsup1 |
||
6 | !set col1=!listuniq $col1 |
||
7 | !set col1cnt=!itemcnt $col1 |
||
10747 | bpr | 8 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def |
9 | |||
10 | !!program without icourses |
||
11 | !if $(don[1])=program and $col1cnt=0 |
||
10852 | bpr | 12 | <ul class="wims_subclasses"> |
13 | !read adm/class/graphprog $wims_class |
||
14 | </ul> |
||
10747 | bpr | 15 | !endif |
16 | !if $col1cnt=0 |
||
17 | !exit |
||
18 | !endif |
||
19 | |||
20 | !set classrad=$wims_superclass |
||
21 | !while $classrad!=$wims_class |
||
22 | !set classrad=$classrad/$col1 |
||
23 | !set lcnt=!linecnt $compsup1 |
||
24 | !set compsup1=!column 2 to -1 of $compsup1 |
||
25 | !set col1=!column 1 of $compsup1 |
||
26 | !set col1=!listuniq $col1 |
||
27 | !set col1cnt=!itemcnt $col1 |
||
28 | !endwhile |
||
29 | |||
30 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def |
||
31 | |||
32 | !if $col1cnt=0 and $(don[1])!=program |
||
33 | !exit |
||
34 | !endif |
||
35 | |||
36 | <ul class="wims_subclasses"> |
||
37 | !if $(don[1])=program |
||
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 |
||
10924 | bpr | 43 | !reset tmp |
10852 | bpr | 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 |
||
10747 | bpr | 49 | !if $cls1 isitemof $(user_$(statut)_) |
10669 | bpr | 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]) |
||
57 | !endif |
||
58 | </span> |
||
10747 | bpr | 59 | !if $(don[1])=program |
60 | <ul> |
||
61 | !read adm/class/graphprog $cls1 |
||
62 | </ul> |
||
63 | !endif |
||
10669 | bpr | 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 |
||
10924 | bpr | 74 | !reset tmp |
10852 | bpr | 75 | !if $(don[1])=course |
76 | !set tmp=$ class="inline" |
||
77 | !endif |
||
78 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
||
10747 | bpr | 79 | !if $cls2 isitemof $(user_$(statut)_) |
10669 | bpr | 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 | !else |
||
86 | $(don[2]) |
||
87 | !endif |
||
88 | </span> |
||
10747 | bpr | 89 | !if $(don[1])=program |
90 | <ul> |
||
91 | !read adm/class/graphprog $cls2 |
||
92 | </ul> |
||
93 | !endif |
||
10669 | bpr | 94 | !set compsup3=!select $compsup2 where column 1=$(col2[$j2]) |
95 | !set col3=!column 2 of $compsup3 |
||
96 | !set col3=!listuniq $col3 |
||
97 | !set col3cnt=!itemcnt $col3 |
||
98 | !if $col3cnt!=0 |
||
99 | <ul> |
||
100 | !set compsup3=!column 2 to -1 of $compsup3 |
||
101 | !for j3=1 to $col3cnt |
||
102 | !set cls3=!nospace $cls2/$(col3[$j3]) |
||
103 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
||
10924 | bpr | 104 | !reset tmp |
10852 | bpr | 105 | !if $(don[1])=course |
106 | !set tmp=$ class="inline" |
||
107 | !endif |
||
108 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
||
109 | !reset tmp |
||
10747 | bpr | 110 | !if $cls3 isitemof $(user_$(statut)_) |
10669 | bpr | 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 | ($(don[3])) |
||
117 | !else |
||
118 | $(don[2]) |
||
119 | !endif |
||
120 | </span> |
||
10747 | bpr | 121 | !if $(don[1])=program |
122 | <ul> |
||
123 | !read adm/class/graphprog $cls3 |
||
124 | </ul> |
||
125 | !endif |
||
10669 | bpr | 126 | </li> |
127 | !next j3 |
||
128 | </ul> |
||
129 | !endif col3cnt |
||
130 | </li> |
||
131 | !next j2 |
||
4799 | guerimand | 132 | </ul> |
10669 | bpr | 133 | !endif col2cnt |
10747 | bpr | 134 | </li> |
135 | !endif |
||
10669 | bpr | 136 | !next j1 |
4799 | guerimand | 137 | </ul> |