Subversion Repositories wimsdev

Rev

Rev 10669 | Rev 10768 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
10747 bpr 1
 
2
!reset compsup1 compsup2 compsup3
10669 bpr 3
!set statut=!line 1 of $wims_read_parm
4
!set compsup=!line 2 to -1 of $wims_read_parm
5
!set compsup1=!column 2 to -1 of $compsup
6
!set col1=!column 1 of $compsup1
7
!set col1=!listuniq $col1
8
!set col1cnt=!itemcnt $col1
10747 bpr 9
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def
10
 
11
!!program without icourses
12
!if $(don[1])=program and $col1cnt=0
13
      <ul class="wims_subclasses">
14
      !read adm/class/graphprog $wims_class
15
      </ul>
16
!endif
17
!if $col1cnt=0
18
  !exit
19
!endif
20
 
21
!set classrad=$wims_superclass
22
!while $classrad!=$wims_class
23
   !set classrad=$classrad/$col1
24
   !set lcnt=!linecnt $compsup1
25
    !set compsup1=!column 2 to -1 of $compsup1
26
    !set col1=!column 1 of $compsup1
27
    !set col1=!listuniq $col1
28
    !set col1cnt=!itemcnt $col1
29
!endwhile
30
 
31
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$classrad/.def
32
 
33
!if $col1cnt=0 and $(don[1])!=program
34
  !exit
35
!endif
36
 
37
   <ul class="wims_subclasses">
38
  !if $(don[1])=program
39
      !read adm/class/graphprog $classrad
40
  !endif
41
  !for j1=1 to $col1cnt
42
     !set cls1=!nospace $classrad/$(col1[$j1])
43
     !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
44
      <li><span class="wims_classes_direct_$(don[1])">
45
     !if $cls1 isitemof $(user_$(statut)_)
10669 bpr 46
       !if $statut=supervise
47
         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
48
       !else
49
         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
50
       !endif
51
     !else
52
        $(don[2])
53
     !endif
54
     </span>
10747 bpr 55
    !if $(don[1])=program
56
    <ul>
57
      !read adm/class/graphprog $cls1
58
    </ul>
59
    !endif
10669 bpr 60
    !set compsup2=!select $compsup1 where column 1=$(col1[$j1])
61
    !set col2=!column 2 of  $compsup2
62
    !set col2=!listuniq $col2
63
    !set col2cnt=!itemcnt $col2
64
    !if $col2cnt>0
65
      !set compsup2=!column 2 to -1 of $compsup2
66
      <ul class="wims_subclasses">
67
      !for j2=1 to $col2cnt
68
        !set cls2=!nospace $cls1/$(col2[$j2])
69
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
70
         <li><span class="wims_classes_direct_$(don[1])">
10747 bpr 71
         !if $cls2 isitemof $(user_$(statut)_)
10669 bpr 72
           !if $statut=supervise
73
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
74
           !else
75
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
76
           !endif
77
         !else
78
           $(don[2])
79
         !endif
80
         </span>
10747 bpr 81
        !if $(don[1])=program
82
          <ul>
83
           !read adm/class/graphprog $cls2
84
         </ul>
85
        !endif
10669 bpr 86
        !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
87
        !set col3=!column 2 of  $compsup3
88
        !set col3=!listuniq $col3
89
        !set col3cnt=!itemcnt $col3
90
        !if $col3cnt!=0
91
          <ul>
92
          !set compsup3=!column 2 to -1 of $compsup3
93
          !for j3=1 to $col3cnt
94
            !set cls3=!nospace $cls2/$(col3[$j3])
95
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
96
             <li><span class="wims_classes_direct_$(don[1])">
10747 bpr 97
              !if $cls3 isitemof $(user_$(statut)_)
10669 bpr 98
                !if $statut=supervise
99
                  !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
100
                !else
101
                  !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
102
                !endif
103
                ($(don[3]))
104
              !else
105
                $(don[2])
106
              !endif
107
              </span>
10747 bpr 108
              !if $(don[1])=program
109
              <ul>
110
                !read adm/class/graphprog $cls3
111
              </ul>
112
              !endif
10669 bpr 113
             </li>
114
          !next j3
115
          </ul>
116
        !endif col3cnt
117
      </li>
118
     !next j2
4799 guerimand 119
    </ul>
10669 bpr 120
   !endif col2cnt
10747 bpr 121
    </li>
122
   !endif
10669 bpr 123
 !next j1
4799 guerimand 124
 </ul>