Subversion Repositories wimsdev

Rev

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

Rev 10747 Rev 12720
Line 5... Line 5...
5 
!set list=$(wims_read_parm[;1])
 5 
!set list=$(wims_read_parm[;1])
6 
!set statut=$(wims_read_parm[;2])
 6 
!set statut=$(wims_read_parm[;2])
7 
!let compsup=$empty
 7 
!let compsup=$empty
8 
 
 8 
 
9 
!for cls in $list
 9 
!for cls in $list
10 
 !let tmp=!replace internal / by , in $cls
 10 
  !let tmp=!replace internal / by , in $cls
11 
 !let nb=!itemcnt $tmp
 11 
  !let nb=!itemcnt $tmp
12 
 !if $nb=1
 12 
  !if $nb=1
13 
   !let compsup=$tmp
 13 
    !let compsup=$tmp
14 
 !endif
 14 
  !endif
15 
 !for l=2 to $nb
 15 
  !for l=2 to $nb
16 
  !let t=!replace internal , by / in $(tmp[1 to $l])
 16 
    !let t=!replace internal , by / in $(tmp[1 to $l])
17 
  !let compsup=!append line $t to $compsup
 17 
    !let compsup=!append line $t to $compsup
18 
 !next l
 18 
  !next l
19 
!next cls
 19 
!next cls
20 
!let compsup=!sh echo "$compsup" | sort | uniq;
 20 
!let compsup=!sh echo "$compsup" | sort | uniq;
21 
!let compsup=!lines2items $compsup
 21 
!let compsup=!lines2items $compsup
22 
!let compsup=!nospace $compsup
 22 
!let compsup=!nospace $compsup
23 
 
 23 
 
24 
!let tab=0
 24 
!let tab=0
25 
!for cls in $compsup
 25 
!for cls in $compsup
26 
 !if /0_ isin $(cls)_
 26 
  !if /0_ isin $(cls)_
27 
   !goto endfor
 27 
    !goto endfor
28 
 !endif
 28 
  !endif
29 
 !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def
 29 
  !let don=!defof class_typename,class_description,class_supervisor,class_parent in wimshome/log/classes/$cls/.def
30 
 !let t=!positionof item $(don[1]) in level,class,program,course
 30 
  !let t=!positionof item $(don[1]) in level,class,program,course
31 
 !if $t=$empty
 31 
  !if $t=$empty
32 
  !! <span class="wims_classes_direct_$(don[1])"> $(CL_Name[6]) :
 32 
    !! <span class="wims_classes_direct_$(don[1])"> $(CL_Name[6]) :
33 
   !!href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
 33 
    !!href module=adm/class/classes&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
34 
  !! </span>
 34 
    !! </span>
35 
  !goto endfor
 35 
    !goto endfor
36 
 !endif
 36 
  !endif
37 
 !if $t=3
 37 
  !if $t=3
38 
  !let ta=2
 38 
    !let ta=2
39 
 !else
 - 
 
40 
  !let ta=$t
 - 
 
41 
 !endif
 - 
 
42 
 !if $tab!=$ta
 - 
 
43 
  !if $tab>$ta
 - 
 
44 
   !for k=$ta+1 to $tab
 - 
 
45 
    </ul>
 - 
 
46 
   !next k
 - 
 
47 
  !else
 39 
  !else
- 
 
 40 
    !let ta=$t
- 
 
 41 
  !endif
- 
 
 42 
  !if $tab!=$ta
- 
 
 43 
    !if $tab>$ta
- 
 
 44 
      !for k=$ta+1 to $tab
- 
 
 45 
        </ul>
- 
 
 46 
      !next k
- 
 
 47 
    !else
48 
   !for k=$tab+1 to $ta
 48 
      !for k=$tab+1 to $ta
49 
    <ul class="wims_subclasses">
 49 
      <ul class="wims_subclasses">
50 
   !next k
 50 
      !next k
51 
  !endif
 51 
    !endif
52 
 !endif
 52 
 !endif
53 
 !let tab=$ta
 53 
 !let tab=$ta
54 
 !if $t=4
 54 
 !if $t=4
55 
  !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def
 55 
    !let tmp=!defof class_typename in wimshome/log/classes/$(don[4])/.def
56 
  !if $tmp=program
 56 
    !if $tmp=program
57 
   !let t=5
 57 
     !let t=5
58 
  !endif
 58 
    !endif
59 
 !endif
 59 
 !endif
60 
 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
 60 
 <li>$arr <span class="wims_classes_direct_$(don[1])"> $(CL_Name[$t]) :
61 
 !if $cls notitemof $list
 61 
 !if $cls notitemof $list
62 
  $(don[2])
 62 
    $(don[2])
63 
 !else
 63 
 !else
64 
    !set cls_pos=!positionof item $cls in $list
 64 
    !set cls_pos=!positionof item $cls in $list
65 
  !if $cls_pos!=$empty
 65 
    !if $cls_pos!=$empty
66 
    !set cls_statut=$(statut[$cls_pos])
 66 
      !set cls_statut=$(statut[$cls_pos])
67 
    !if $cls_statut=supervisor
 67 
      !if $cls_statut=supervisor
68 
      !href cmd=reply&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
 68 
        !href cmd=reply&type=authsupervisor&class=$cls&auth_user=supervisor $(don[2])
69 
    ($cls_statut)
 69 
        ($cls_statut)
70 
    !else
 70 
      !else
71 
      !href cmd=reply&type=authparticipant&class=$cls&auth_user=$cls_statut $(don[2])
 71 
        !href cmd=reply&type=authparticipant&class=$cls&auth_user=$cls_statut $(don[2])
- 
 
 72 
      !endif
72 
    !endif
 73 
    !endif
73 
  !endif
 74 
  !endif
74 
 !endif
 - 
 
75 
 ($(don[3])) </span> </li>
 75 
  ($(don[3])) </span> </li>
76 
:endfor
 76 
  :endfor
77 
!next cls
 77 
!next cls
78 
!for k=1 to $tab
 78 
!for k=1 to $tab
79 
 </ul>
 79 
  </ul>
80 
!next k
 80 
!next k