Subversion Repositories wimsdev

Rev

Rev 10852 | Rev 12555 | 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
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
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
 
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
10924 bpr 43
     !reset tmp
10852 bpr 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
10747 bpr 49
     !if $cls1 isitemof $(user_$(statut)_)
10669 bpr 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])
57
     !endif
58
     </span>
10747 bpr 59
    !if $(don[1])=program
60
    <ul>
61
      !read adm/class/graphprog $cls1
62
    </ul>
63
    !endif
10669 bpr 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
10924 bpr 74
        !reset tmp
10852 bpr 75
        !if $(don[1])=course
76
          !set tmp=$ class="inline"
77
        !endif
78
         <li$tmp><span class="wims_classes_direct_$(don[1])">
10747 bpr 79
         !if $cls2 isitemof $(user_$(statut)_)
10669 bpr 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
86
           $(don[2])
87
         !endif
88
         </span>
10747 bpr 89
        !if $(don[1])=program
90
          <ul>
91
           !read adm/class/graphprog $cls2
92
         </ul>
93
        !endif
10669 bpr 94
        !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
95
        !set col3=!column 2 of  $compsup3
96
        !set col3=!listuniq $col3
97
        !set col3cnt=!itemcnt $col3
98
        !if $col3cnt!=0
99
          <ul>
100
          !set compsup3=!column 2 to -1 of $compsup3
101
          !for j3=1 to $col3cnt
102
            !set cls3=!nospace $cls2/$(col3[$j3])
103
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
10924 bpr 104
            !reset tmp
10852 bpr 105
            !if $(don[1])=course
106
              !set tmp=$ class="inline"
107
            !endif
108
             <li$tmp><span class="wims_classes_direct_$(don[1])">
109
             !reset tmp
10747 bpr 110
              !if $cls3 isitemof $(user_$(statut)_)
10669 bpr 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]))
117
              !else
118
                $(don[2])
119
              !endif
120
              </span>
10747 bpr 121
              !if $(don[1])=program
122
              <ul>
123
                !read adm/class/graphprog $cls3
124
              </ul>
125
              !endif
10669 bpr 126
             </li>
127
          !next j3
128
          </ul>
129
        !endif col3cnt
130
      </li>
131
     !next j2
4799 guerimand 132
    </ul>
10669 bpr 133
   !endif col2cnt
10747 bpr 134
    </li>
135
   !endif
10669 bpr 136
 !next j1
4799 guerimand 137
 </ul>