Subversion Repositories wimsdev

Rev

Rev 10747 | Rev 10852 | 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
12
      <ul class="wims_subclasses">
13
      !read adm/class/graphprog $wims_class
14
      </ul>
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
43
      <li><span class="wims_classes_direct_$(don[1])">
44
     !if $cls1 isitemof $(user_$(statut)_)
10669 bpr 45
       !if $statut=supervise
46
         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
47
       !else
48
         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
49
       !endif
50
     !else
51
        $(don[2])
52
     !endif
53
     </span>
10747 bpr 54
    !if $(don[1])=program
55
    <ul>
56
      !read adm/class/graphprog $cls1
57
    </ul>
58
    !endif
10669 bpr 59
    !set compsup2=!select $compsup1 where column 1=$(col1[$j1])
60
    !set col2=!column 2 of  $compsup2
61
    !set col2=!listuniq $col2
62
    !set col2cnt=!itemcnt $col2
63
    !if $col2cnt>0
64
      !set compsup2=!column 2 to -1 of $compsup2
65
      <ul class="wims_subclasses">
66
      !for j2=1 to $col2cnt
67
        !set cls2=!nospace $cls1/$(col2[$j2])
68
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
69
         <li><span class="wims_classes_direct_$(don[1])">
10747 bpr 70
         !if $cls2 isitemof $(user_$(statut)_)
10669 bpr 71
           !if $statut=supervise
72
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
73
           !else
74
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
75
           !endif
76
         !else
77
           $(don[2])
78
         !endif
79
         </span>
10747 bpr 80
        !if $(don[1])=program
81
          <ul>
82
           !read adm/class/graphprog $cls2
83
         </ul>
84
        !endif
10669 bpr 85
        !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
86
        !set col3=!column 2 of  $compsup3
87
        !set col3=!listuniq $col3
88
        !set col3cnt=!itemcnt $col3
89
        !if $col3cnt!=0
90
          <ul>
91
          !set compsup3=!column 2 to -1 of $compsup3
92
          !for j3=1 to $col3cnt
93
            !set cls3=!nospace $cls2/$(col3[$j3])
94
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
95
             <li><span class="wims_classes_direct_$(don[1])">
10747 bpr 96
              !if $cls3 isitemof $(user_$(statut)_)
10669 bpr 97
                !if $statut=supervise
98
                  !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
99
                !else
100
                  !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
101
                !endif
102
                ($(don[3]))
103
              !else
104
                $(don[2])
105
              !endif
106
              </span>
10747 bpr 107
              !if $(don[1])=program
108
              <ul>
109
                !read adm/class/graphprog $cls3
110
              </ul>
111
              !endif
10669 bpr 112
             </li>
113
          !next j3
114
          </ul>
115
        !endif col3cnt
116
      </li>
117
     !next j2
4799 guerimand 118
    </ul>
10669 bpr 119
   !endif col2cnt
10747 bpr 120
    </li>
121
   !endif
10669 bpr 122
 !next j1
4799 guerimand 123
 </ul>