Rev 10852 | Rev 12555 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 10852 | Rev 10924 | ||
---|---|---|---|
Line 38... | Line 38... | ||
38 | !read adm/class/graphprog $classrad |
38 | !read adm/class/graphprog $classrad |
39 | !endif |
39 | !endif |
40 | !for j1=1 to $col1cnt |
40 | !for j1=1 to $col1cnt |
41 | !set cls1=!nospace $classrad/$(col1[$j1]) |
41 | !set cls1=!nospace $classrad/$(col1[$j1]) |
42 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def |
42 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def |
- | 43 | !reset tmp |
|
43 | !if $(don[1])=course |
44 | !if $(don[1])=course |
44 | !set tmp=$ class="inline" |
45 | !set tmp=$ class="inline" |
45 | !endif |
46 | !endif |
46 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
47 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
47 | !reset tmp |
48 | !reset tmp |
Line 68... | Line 69... | ||
68 | !set compsup2=!column 2 to -1 of $compsup2 |
69 | !set compsup2=!column 2 to -1 of $compsup2 |
69 | <ul class="wims_subclasses"> |
70 | <ul class="wims_subclasses"> |
70 | !for j2=1 to $col2cnt |
71 | !for j2=1 to $col2cnt |
71 | !set cls2=!nospace $cls1/$(col2[$j2]) |
72 | !set cls2=!nospace $cls1/$(col2[$j2]) |
72 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
73 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def |
- | 74 | !reset tmp |
|
73 | !if $(don[1])=course |
75 | !if $(don[1])=course |
74 | !set tmp=$ class="inline" |
76 | !set tmp=$ class="inline" |
75 | !endif |
77 | !endif |
76 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
78 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
77 | !reset tmp |
- | |
78 | !if $cls2 isitemof $(user_$(statut)_) |
79 | !if $cls2 isitemof $(user_$(statut)_) |
79 | !if $statut=supervise |
80 | !if $statut=supervise |
80 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
81 | !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2]) |
81 | !else |
82 | !else |
82 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
83 | !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2]) |
Line 98... | Line 99... | ||
98 | <ul> |
99 | <ul> |
99 | !set compsup3=!column 2 to -1 of $compsup3 |
100 | !set compsup3=!column 2 to -1 of $compsup3 |
100 | !for j3=1 to $col3cnt |
101 | !for j3=1 to $col3cnt |
101 | !set cls3=!nospace $cls2/$(col3[$j3]) |
102 | !set cls3=!nospace $cls2/$(col3[$j3]) |
102 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
103 | !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def |
- | 104 | !reset tmp |
|
103 | !if $(don[1])=course |
105 | !if $(don[1])=course |
104 | !set tmp=$ class="inline" |
106 | !set tmp=$ class="inline" |
105 | !endif |
107 | !endif |
106 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
108 | <li$tmp><span class="wims_classes_direct_$(don[1])"> |
107 | !reset tmp |
109 | !reset tmp |