Rev 10669 | Rev 10768 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
10747 | bpr | 1 | |
2 | !reset compsup1 compsup2 compsup3 |
||
10669 | bpr | 3 | !set statut=!line 1 of $wims_read_parm |
4 | !set compsup=!line 2 to -1 of $wims_read_parm |
||
5 | !set compsup1=!column 2 to -1 of $compsup |
||
6 | !set col1=!column 1 of $compsup1 |
||
7 | !set col1=!listuniq $col1 |
||
8 | !set col1cnt=!itemcnt $col1 |
||
10747 | bpr | 9 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def |
10 | |||
11 | !!program without icourses |
||
12 | !if $(don[1])=program and $col1cnt=0 |
||
13 | <ul class="wims_subclasses"> |
||
14 | !read adm/class/graphprog $wims_class |
||
15 | </ul> |
||
16 | !endif |
||
17 | !if $col1cnt=0 |
||
18 | !exit |
||
19 | !endif |
||
20 | |||
21 | !set classrad=$wims_superclass |
||
22 | !while $classrad!=$wims_class |
||
23 | !set classrad=$classrad/$col1 |
||
24 | !set lcnt=!linecnt $compsup1 |
||
25 | !set compsup1=!column 2 to -1 of $compsup1 |
||
26 | !set col1=!column 1 of $compsup1 |
||
27 | !set col1=!listuniq $col1 |
||
28 | !set col1cnt=!itemcnt $col1 |
||
29 | !endwhile |
||
30 | |||
31 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def |
||
32 | |||
33 | !if $col1cnt=0 and $(don[1])!=program |
||
34 | !exit |
||
35 | !endif |
||
36 | |||
37 | <ul class="wims_subclasses"> |
||
38 | !if $(don[1])=program |
||
39 | !read adm/class/graphprog $classrad |
||
40 | !endif |
||
41 | !for j1=1 to $col1cnt |
||
42 | !set cls1=!nospace $classrad/$(col1[$j1]) |
||
43 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def |
||
44 | <li><span class="wims_classes_direct_$(don[1])"> |
||
45 | !if $cls1 isitemof $(user_$(statut)_) |
||
10669 | bpr | 46 | !if $statut=supervise |
47 | !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2]) |
||
48 | !else |
||
49 | !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2]) |
||
50 | !endif |
||
51 | !else |
||
52 | $(don[2]) |
||
53 | !endif |
||
54 | </span> |
||
10747 | bpr | 55 | !if $(don[1])=program |
56 | <ul> |
||
57 | !read adm/class/graphprog $cls1 |
||
58 | </ul> |
||
59 | !endif |
||
10669 | bpr | 60 | !set compsup2=!select $compsup1 where column 1=$(col1[$j1]) |
61 | !set col2=!column 2 of $compsup2 |
||
62 | !set col2=!listuniq $col2 |
||
63 | !set col2cnt=!itemcnt $col2 |
||
64 | !if $col2cnt>0 |
||
65 | !set compsup2=!column 2 to -1 of $compsup2 |
||
66 | <ul class="wims_subclasses"> |
||
67 | !for j2=1 to $col2cnt |
||
68 | !set cls2=!nospace $cls1/$(col2[$j2]) |
||
69 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
||
70 | <li><span class="wims_classes_direct_$(don[1])"> |
||
10747 | bpr | 71 | !if $cls2 isitemof $(user_$(statut)_) |
10669 | bpr | 72 | !if $statut=supervise |
73 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
||
74 | !else |
||
75 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
||
76 | !endif |
||
77 | !else |
||
78 | $(don[2]) |
||
79 | !endif |
||
80 | </span> |
||
10747 | bpr | 81 | !if $(don[1])=program |
82 | <ul> |
||
83 | !read adm/class/graphprog $cls2 |
||
84 | </ul> |
||
85 | !endif |
||
10669 | bpr | 86 | !set compsup3=!select $compsup2 where column 1=$(col2[$j2]) |
87 | !set col3=!column 2 of $compsup3 |
||
88 | !set col3=!listuniq $col3 |
||
89 | !set col3cnt=!itemcnt $col3 |
||
90 | !if $col3cnt!=0 |
||
91 | <ul> |
||
92 | !set compsup3=!column 2 to -1 of $compsup3 |
||
93 | !for j3=1 to $col3cnt |
||
94 | !set cls3=!nospace $cls2/$(col3[$j3]) |
||
95 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
||
96 | <li><span class="wims_classes_direct_$(don[1])"> |
||
10747 | bpr | 97 | !if $cls3 isitemof $(user_$(statut)_) |
10669 | bpr | 98 | !if $statut=supervise |
99 | !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2]) |
||
100 | !else |
||
101 | !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2]) |
||
102 | !endif |
||
103 | ($(don[3])) |
||
104 | !else |
||
105 | $(don[2]) |
||
106 | !endif |
||
107 | </span> |
||
10747 | bpr | 108 | !if $(don[1])=program |
109 | <ul> |
||
110 | !read adm/class/graphprog $cls3 |
||
111 | </ul> |
||
112 | !endif |
||
10669 | bpr | 113 | </li> |
114 | !next j3 |
||
115 | </ul> |
||
116 | !endif col3cnt |
||
117 | </li> |
||
118 | !next j2 |
||
4799 | guerimand | 119 | </ul> |
10669 | bpr | 120 | !endif col2cnt |
10747 | bpr | 121 | </li> |
122 | !endif |
||
10669 | bpr | 123 | !next j1 |
4799 | guerimand | 124 | </ul> |