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>