Subversion Repositories wimsdev

Rev

Rev 12555 | Rev 16126 | 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
12555 bpr 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
10747 bpr 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
 
12555 bpr 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
  !reset tmp
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
49
  !if $cls1 isitemof $(user_$(statut)_)
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
13147 bpr 56
    !if $(don[1])=course
57
      !href module=adm/class/reguser&class=$cls1&user_auth=$u_&subclass=yes $(don[2]) (inscription)
58
    !else
59
      $(don[2])
60
    !endif
12555 bpr 61
  !endif
62
  </span>
10747 bpr 63
  !if $(don[1])=program
12555 bpr 64
    <ul>
65
    !read adm/class/graphprog $cls1
66
     </ul>
10747 bpr 67
  !endif
12555 bpr 68
  !set compsup2=!select $compsup1 where column 1=$(col1[$j1])
69
  !set col2=!column 2 of  $compsup2
70
  !set col2=!listuniq $col2
71
  !set col2cnt=!itemcnt $col2
72
  !if $col2cnt>0
73
    !set compsup2=!column 2 to -1 of $compsup2
74
    <ul class="wims_subclasses">
75
    !for j2=1 to $col2cnt
76
      !set cls2=!nospace $cls1/$(col2[$j2])
77
      !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
78
      !reset tmp
79
      !if $(don[1])=course
10852 bpr 80
        !set tmp=$ class="inline"
12555 bpr 81
      !endif
10852 bpr 82
      <li$tmp><span class="wims_classes_direct_$(don[1])">
12555 bpr 83
      !if $cls2 isitemof $(user_$(statut)_)
84
        !if $statut=supervise
85
          !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
86
        !else
87
          !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
88
        !endif
89
      !else
13147 bpr 90
        !if $(don[1])=course
91
          !href module=adm/class/reguser&class=$cls2&user_auth=$u_&subclass=yes $(don[2])
92
        !else
93
          $(don[2])
94
        !endif
12555 bpr 95
      !endif
96
      </span>
97
      !if $(don[1])=program
98
        <ul>
99
        !read adm/class/graphprog $cls2
100
        </ul>
101
      !endif
102
      !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
103
      !set col3=!column 2 of  $compsup3
104
      !set col3=!listuniq $col3
105
      !set col3cnt=!itemcnt $col3
106
      !if $col3cnt!=0
107
        <ul>
108
        !set compsup3=!column 2 to -1 of $compsup3
109
        !for j3=1 to $col3cnt
110
          !set cls3=!nospace $cls2/$(col3[$j3])
111
          !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
112
          !reset tmp
113
          !if $(don[1])=course
114
            !set tmp=$ class="inline"
115
          !endif
116
          <li$tmp><span class="wims_classes_direct_$(don[1])">
117
          !reset tmp
118
          !if $cls3 isitemof $(user_$(statut)_)
119
            !if $statut=supervise
120
              !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
121
            !else
122
              !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
10852 bpr 123
            !endif
12555 bpr 124
            ($(don[3]))
125
          !else
13147 bpr 126
            !if $(don[1])=course
127
              !href module=adm/class/reguser&class=$cls3&user_auth=$u_&subclass=yes $(don[2]) (inscription)
128
            !else
129
              $(don[2])
130
            !endif
12555 bpr 131
          !endif
132
          </span>
133
          !if $(don[1])=program
134
            <ul>
135
            !read adm/class/graphprog $cls3
136
            </ul>
137
          !endif
138
          </li>
139
        !next j3
140
        </ul>
141
      !endif col3cnt
10669 bpr 142
      </li>
12555 bpr 143
    !next j2
4799 guerimand 144
    </ul>
12555 bpr 145
  !endif col2cnt
146
  </li>
147
  !endif
148
!next j1
149
</ul>