Rev 10747 | Rev 10852 | 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 |
||
12 | <ul class="wims_subclasses"> |
||
13 | !read adm/class/graphprog $wims_class |
||
14 | </ul> |
||
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 |
||
43 | <li><span class="wims_classes_direct_$(don[1])"> |
||
44 | !if $cls1 isitemof $(user_$(statut)_) |
||
10669 | bpr | 45 | !if $statut=supervise |
46 | !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2]) |
||
47 | !else |
||
48 | !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2]) |
||
49 | !endif |
||
50 | !else |
||
51 | $(don[2]) |
||
52 | !endif |
||
53 | </span> |
||
10747 | bpr | 54 | !if $(don[1])=program |
55 | <ul> |
||
56 | !read adm/class/graphprog $cls1 |
||
57 | </ul> |
||
58 | !endif |
||
10669 | bpr | 59 | !set compsup2=!select $compsup1 where column 1=$(col1[$j1]) |
60 | !set col2=!column 2 of $compsup2 |
||
61 | !set col2=!listuniq $col2 |
||
62 | !set col2cnt=!itemcnt $col2 |
||
63 | !if $col2cnt>0 |
||
64 | !set compsup2=!column 2 to -1 of $compsup2 |
||
65 | <ul class="wims_subclasses"> |
||
66 | !for j2=1 to $col2cnt |
||
67 | !set cls2=!nospace $cls1/$(col2[$j2]) |
||
68 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
||
69 | <li><span class="wims_classes_direct_$(don[1])"> |
||
10747 | bpr | 70 | !if $cls2 isitemof $(user_$(statut)_) |
10669 | bpr | 71 | !if $statut=supervise |
72 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
||
73 | !else |
||
74 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
||
75 | !endif |
||
76 | !else |
||
77 | $(don[2]) |
||
78 | !endif |
||
79 | </span> |
||
10747 | bpr | 80 | !if $(don[1])=program |
81 | <ul> |
||
82 | !read adm/class/graphprog $cls2 |
||
83 | </ul> |
||
84 | !endif |
||
10669 | bpr | 85 | !set compsup3=!select $compsup2 where column 1=$(col2[$j2]) |
86 | !set col3=!column 2 of $compsup3 |
||
87 | !set col3=!listuniq $col3 |
||
88 | !set col3cnt=!itemcnt $col3 |
||
89 | !if $col3cnt!=0 |
||
90 | <ul> |
||
91 | !set compsup3=!column 2 to -1 of $compsup3 |
||
92 | !for j3=1 to $col3cnt |
||
93 | !set cls3=!nospace $cls2/$(col3[$j3]) |
||
94 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
||
95 | <li><span class="wims_classes_direct_$(don[1])"> |
||
10747 | bpr | 96 | !if $cls3 isitemof $(user_$(statut)_) |
10669 | bpr | 97 | !if $statut=supervise |
98 | !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2]) |
||
99 | !else |
||
100 | !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2]) |
||
101 | !endif |
||
102 | ($(don[3])) |
||
103 | !else |
||
104 | $(don[2]) |
||
105 | !endif |
||
106 | </span> |
||
10747 | bpr | 107 | !if $(don[1])=program |
108 | <ul> |
||
109 | !read adm/class/graphprog $cls3 |
||
110 | </ul> |
||
111 | !endif |
||
10669 | bpr | 112 | </li> |
113 | !next j3 |
||
114 | </ul> |
||
115 | !endif col3cnt |
||
116 | </li> |
||
117 | !next j2 |
||
4799 | guerimand | 118 | </ul> |
10669 | bpr | 119 | !endif col2cnt |
10747 | bpr | 120 | </li> |
121 | !endif |
||
10669 | bpr | 122 | !next j1 |
4799 | guerimand | 123 | </ul> |