Subversion Repositories wimsdev

Rev

Rev 10924 | Rev 13147 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10924 Rev 12555
Line 17... Line 17...
17
  !exit
17
  !exit
18
!endif
18
!endif
19
 
19
 
20
!set classrad=$wims_superclass
20
!set classrad=$wims_superclass
21
!while $classrad!=$wims_class
21
!while $classrad!=$wims_class
22
   !set classrad=$classrad/$col1
22
  !set classrad=$classrad/$col1
23
   !set lcnt=!linecnt $compsup1
23
  !set lcnt=!linecnt $compsup1
24
    !set compsup1=!column 2 to -1 of $compsup1
24
  !set compsup1=!column 2 to -1 of $compsup1
25
    !set col1=!column 1 of $compsup1
25
  !set col1=!column 1 of $compsup1
26
    !set col1=!listuniq $col1
26
  !set col1=!listuniq $col1
27
    !set col1cnt=!itemcnt $col1
27
  !set col1cnt=!itemcnt $col1
28
!endwhile
28
!endwhile
29
 
29
 
30
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
30
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
31
 
31
 
32
!if $col1cnt=0 and $(don[1])!=program
32
!if $col1cnt=0 and $(don[1])!=program
33
  !exit
33
  !exit
34
!endif
34
!endif
35
 
35
 
36
   <ul class="wims_subclasses">
36
<ul class="wims_subclasses">
37
  !if $(don[1])=program
37
!if $(don[1])=program
38
      !read adm/class/graphprog $classrad
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
-
 
56
    $(don[2])
39
  !endif
57
  !endif
-
 
58
  </span>
-
 
59
  !if $(don[1])=program
-
 
60
    <ul>
-
 
61
    !read adm/class/graphprog $cls1
-
 
62
     </ul>
-
 
63
  !endif
-
 
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">
40
  !for j1=1 to $col1cnt
71
    !for j2=1 to $col2cnt
41
     !set cls1=!nospace $classrad/$(col1[$j1])
72
      !set cls2=!nospace $cls1/$(col2[$j2])
42
     !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
73
      !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
43
     !reset tmp
74
      !reset tmp
44
     !if $(don[1])=course
75
      !if $(don[1])=course
45
        !set tmp=$ class="inline"
76
        !set tmp=$ class="inline"
46
     !endif
77
      !endif
47
      <li$tmp><span class="wims_classes_direct_$(don[1])">
78
      <li$tmp><span class="wims_classes_direct_$(don[1])">
48
     !reset tmp
-
 
49
     !if $cls1 isitemof $(user_$(statut)_)
79
      !if $cls2 isitemof $(user_$(statut)_)
50
       !if $statut=supervise
80
        !if $statut=supervise
51
         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
81
          !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
52
       !else
82
        !else
53
         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
83
          !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
54
       !endif
-
 
55
     !else
-
 
56
        $(don[2])
-
 
57
     !endif
-
 
58
     </span>
-
 
59
    !if $(don[1])=program
-
 
60
    <ul>
-
 
61
      !read adm/class/graphprog $cls1
-
 
62
    </ul>
-
 
63
    !endif
-
 
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
-
 
74
        !reset tmp
-
 
75
        !if $(don[1])=course
-
 
76
          !set tmp=$ class="inline"
-
 
77
        !endif
84
        !endif
78
         <li$tmp><span class="wims_classes_direct_$(don[1])">
-
 
79
         !if $cls2 isitemof $(user_$(statut)_)
-
 
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
85
      !else
86
           $(don[2])
86
        $(don[2])
87
         !endif
87
      !endif
88
         </span>
88
      </span>
89
        !if $(don[1])=program
89
      !if $(don[1])=program
90
          <ul>
90
        <ul>
91
           !read adm/class/graphprog $cls2
91
        !read adm/class/graphprog $cls2
92
         </ul>
92
        </ul>
93
        !endif
93
      !endif
94
        !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
94
      !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
95
        !set col3=!column 2 of  $compsup3
95
      !set col3=!column 2 of  $compsup3
96
        !set col3=!listuniq $col3
96
      !set col3=!listuniq $col3
97
        !set col3cnt=!itemcnt $col3
97
      !set col3cnt=!itemcnt $col3
98
        !if $col3cnt!=0
98
      !if $col3cnt!=0
99
          <ul>
99
        <ul>
100
          !set compsup3=!column 2 to -1 of $compsup3
100
        !set compsup3=!column 2 to -1 of $compsup3
101
          !for j3=1 to $col3cnt
101
        !for j3=1 to $col3cnt
102
            !set cls3=!nospace $cls2/$(col3[$j3])
102
          !set cls3=!nospace $cls2/$(col3[$j3])
103
            !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
104
          !reset tmp
105
            !if $(don[1])=course
105
          !if $(don[1])=course
106
              !set tmp=$ class="inline"
106
            !set tmp=$ class="inline"
-
 
107
          !endif
-
 
108
          <li$tmp><span class="wims_classes_direct_$(don[1])">
-
 
109
          !reset tmp
-
 
110
          !if $cls3 isitemof $(user_$(statut)_)
-
 
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])
107
            !endif
115
            !endif
108
             <li$tmp><span class="wims_classes_direct_$(don[1])">
-
 
109
             !reset tmp
-
 
110
              !if $cls3 isitemof $(user_$(statut)_)
-
 
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]))
116
            ($(don[3]))
117
              !else
117
          !else
118
                $(don[2])
118
            $(don[2])
119
              !endif
119
          !endif
120
              </span>
120
          </span>
121
              !if $(don[1])=program
121
          !if $(don[1])=program
122
              <ul>
122
            <ul>
123
                !read adm/class/graphprog $cls3
123
            !read adm/class/graphprog $cls3
124
              </ul>
124
            </ul>
125
              !endif
125
          !endif
126
             </li>
126
          </li>
127
          !next j3
127
        !next j3
128
          </ul>
128
        </ul>
129
        !endif col3cnt
129
      !endif col3cnt
130
      </li>
130
      </li>
131
     !next j2
131
    !next j2
132
    </ul>
132
    </ul>
133
   !endif col2cnt
133
  !endif col2cnt
134
    </li>
134
  </li>
135
   !endif
135
  !endif
136
 !next j1
136
!next j1
137
 </ul>
137
</ul>