Subversion Repositories wimsdev

Rev

Rev 10651 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10651 Rev 10669
Line 1... Line 1...
1 
!set statut=!item 1 of $wims_read_parm
 1 
!set statut=!line 1 of $wims_read_parm
2 
!set compsup=!item 2 to -1 of $wims_read_parm
 2 
!set compsup=!line 2 to -1 of $wims_read_parm
3 
!set compsup=!nospace $compsup
 3 
!set compsup1=!column 2 to -1 of $compsup
- 
 
 4 
!set col1=!column 1 of $compsup1
4 
!let tab=0
 5 
!set col1=!listuniq $col1
- 
 
 6 
!set col1cnt=!itemcnt $col1
- 
 
 7 
  <ul class="wims_subclasses">
5 
!for cls in $compsup
 8 
 !for j1=1 to $col1cnt
6 
 !if $wims_class/ notin $cls
 9 
   !set cls1=$wims_superclass/$(col1[$j1])
- 
 
 10 
   !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
- 
 
 11 
   <li><span class="wims_classes_direct_$(don[1])">
- 
 
 12 
     !if $cls1 isitemof $(user_$statut)
- 
 
 13 
       !if $statut=supervise
- 
 
 14 
         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
- 
 
 15 
       !else
- 
 
 16 
         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
7 
   !goto encls
 17 
       !endif
- 
 
 18 
     !else
- 
 
 19 
        $(don[2])
8 
 !endif
 20 
     !endif
- 
 
 21 
     </span>
- 
 
 22 
    !set compsup2=!select $compsup1 where column 1=$(col1[$j1])
- 
 
 23 
    !set col2=!column 2 of  $compsup2
- 
 
 24 
    !set col2=!listuniq $col2
- 
 
 25 
    !set col2cnt=!itemcnt $col2
- 
 
 26 
    !if $col2cnt>0
- 
 
 27 
      !set compsup2=!column 2 to -1 of $compsup2
- 
 
 28 
      <ul class="wims_subclasses">
- 
 
 29 
      !for j2=1 to $col2cnt
- 
 
 30 
        !set cls2=!nospace $cls1/$(col2[$j2])
9 
 !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def
 31 
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
10 
 !let t=!positionof item $(don[1]) in level,class,program,course
 32 
         <li><span class="wims_classes_direct_$(don[1])">
- 
 
 33 
         !if $cls2 isitemof $(user_$statut)
- 
 
 34 
           !if $statut=supervise
- 
 
 35 
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
- 
 
 36 
           !else
- 
 
 37 
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
11 
 !if $t=0 or $t=$empty
 38 
           !endif
12 
    !goto encls
 39 
         !else
- 
 
 40 
           $(don[2])
13 
 !endif
 41 
         !endif
- 
 
 42 
         </span>
- 
 
 43 
        !set compsup3=!select $compsup2 where column 1=$(col2[$j2])
- 
 
 44 
        !set col3=!column 2 of  $compsup3
- 
 
 45 
        !set col3=!listuniq $col3
- 
 
 46 
        !set col3cnt=!itemcnt $col3
14 
 !if $t=3
 47 
        !if $col3cnt!=0
15 
  !let ta=2
 48 
          <ul>
- 
 
 49 
          !set compsup3=!column 2 to -1 of $compsup3
- 
 
 50 
          !for j3=1 to $col3cnt
- 
 
 51 
            !set cls3=!nospace $cls2/$(col3[$j3])
- 
 
 52 
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
- 
 
 53 
             <li><span class="wims_classes_direct_$(don[1])">
- 
 
 54 
              !if $cls3 isitemof $(user_$statut)
- 
 
 55 
                !if $statut=supervise
- 
 
 56 
                  !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
16 
 !else
 57 
                !else
- 
 
 58 
                  !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
- 
 
 59 
                !endif
- 
 
 60 
                ($(don[3]))
17 
  !let ta=$t
 61 
              !else
- 
 
 62 
                $(don[2])
18 
 !endif
 63 
              !endif
- 
 
 64 
              </span>
- 
 
 65 
             </li>
19 
 !if $tab!=$ta
 66 
          !next j3
20 
  !if $tab>$ta
 67 
          </ul>
21 
   !for k=$ta+1 to $tab
 68 
        !endif col3cnt
- 
 
 69 
      </li>
- 
 
 70 
     !next j2
22 
    </ul>
 71 
    </ul>
23 
   !next k
 - 
 
24 
  !else
 - 
 
25 
   !for k=$tab+1 to $ta
 - 
 
26 
    <ul class="wims_subclasses">
 - 
 
27 
   !next k
 - 
 
28 
  !endif
 72 
   !endif col2cnt
29 
 !endif
 - 
 
30 
 !let tab=$ta
 - 
 
31 
 !if $t=4
 - 
 
32 
  !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def
 - 
 
33 
  !if $tmp=program
 - 
 
34 
   !let t=5
 - 
 
35 
  !endif
 - 
 
36 
 !endif
 - 
 
37 
 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
 - 
 
38 
 !if $cls notitemof $(user_$statut)
 - 
 
39 
  $(don[2])
 - 
 
40 
 !else
 - 
 
41 
   !if $statut=supervise
 - 
 
42 
     !href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
 - 
 
43 
   !else
 73 
   </li>
44 
     !href module=adm/class/classes&type=authparticipant&class=$cls&auth_user=$u_ $(don[2])
 - 
 
45 
   !endif
 - 
 
46 
 !endif
 - 
 
47 
 ($(don[3])) </span> </li>
 - 
 
48 
:encls
 - 
 
49 
!next cls
 74 
 !next j1
50 
!for k=1 to $tab
 - 
 
51 
 </ul>
 75 
 </ul>
52 
!next k
 - 
 
53 
!reset compsup
 -