Subversion Repositories wimsdev

Rev

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

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