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
-