Subversion Repositories wimsdev

Rev

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

Rev 10768 Rev 10852
Line 7... Line 7...
7 
!set col1cnt=!itemcnt $col1
 7 
!set col1cnt=!itemcnt $col1
8 
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def
 8 
!let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$wims_class/.def
9 
 
 9 
 
10 
!!program without icourses
 10 
!!program without icourses
11 
!if $(don[1])=program and $col1cnt=0
 11 
!if $(don[1])=program and $col1cnt=0
12 
      <ul class="wims_subclasses">
 12 
  <ul class="wims_subclasses">
13 
      !read adm/class/graphprog $wims_class
 13 
  !read adm/class/graphprog $wims_class
14 
      </ul>
 14 
  </ul>
15 
!endif
 15 
!endif
16 
!if $col1cnt=0
 16 
!if $col1cnt=0
17 
  !exit
 17 
  !exit
18 
!endif
 18 
!endif
19 
 
 19 
 
Line 38... Line 38...
38 
      !read adm/class/graphprog $classrad
 38 
      !read adm/class/graphprog $classrad
39 
  !endif
 39 
  !endif
40 
  !for j1=1 to $col1cnt
 40 
  !for j1=1 to $col1cnt
41 
     !set cls1=!nospace $classrad/$(col1[$j1])
 41 
     !set cls1=!nospace $classrad/$(col1[$j1])
42 
     !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
 42 
     !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls1/.def
- 
 
 43 
     !if $(don[1])=course
- 
 
 44 
        !set tmp=$ class="inline"
- 
 
 45 
     !endif
43 
      <li><span class="wims_classes_direct_$(don[1])">
 46 
      <li$tmp><span class="wims_classes_direct_$(don[1])">
- 
 
 47 
     !reset tmp
44 
     !if $cls1 isitemof $(user_$(statut)_)
 48 
     !if $cls1 isitemof $(user_$(statut)_)
45 
       !if $statut=supervise
 49 
       !if $statut=supervise
46 
         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
 50 
         !href module=adm/class/classes&type=authsupervisor&class=$cls1&auth_user=supervisor $(don[2])
47 
       !else
 51 
       !else
48 
         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
 52 
         !href module=adm/class/classes&type=authparticipant&class=$cls1&auth_user=$u_ $(don[2])
Line 64... Line 68...
64 
      !set compsup2=!column 2 to -1 of $compsup2
 68 
      !set compsup2=!column 2 to -1 of $compsup2
65 
      <ul class="wims_subclasses">
 69 
      <ul class="wims_subclasses">
66 
      !for j2=1 to $col2cnt
 70 
      !for j2=1 to $col2cnt
67 
        !set cls2=!nospace $cls1/$(col2[$j2])
 71 
        !set cls2=!nospace $cls1/$(col2[$j2])
68 
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
 72 
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
- 
 
 73 
        !if $(don[1])=course
- 
 
 74 
          !set tmp=$ class="inline"
- 
 
 75 
        !endif
69 
         <li><span class="wims_classes_direct_$(don[1])">
 76 
         <li$tmp><span class="wims_classes_direct_$(don[1])">
- 
 
 77 
         !reset tmp
70 
         !if $cls2 isitemof $(user_$(statut)_)
 78 
         !if $cls2 isitemof $(user_$(statut)_)
71 
           !if $statut=supervise
 79 
           !if $statut=supervise
72 
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
 80 
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
73 
           !else
 81 
           !else
74 
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
 82 
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
Line 90... Line 98...
90 
          <ul>
 98 
          <ul>
91 
          !set compsup3=!column 2 to -1 of $compsup3
 99 
          !set compsup3=!column 2 to -1 of $compsup3
92 
          !for j3=1 to $col3cnt
 100 
          !for j3=1 to $col3cnt
93 
            !set cls3=!nospace $cls2/$(col3[$j3])
 101 
            !set cls3=!nospace $cls2/$(col3[$j3])
94 
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
 102 
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
- 
 
 103 
            !if $(don[1])=course
- 
 
 104 
              !set tmp=$ class="inline"
- 
 
 105 
            !endif
95 
             <li><span class="wims_classes_direct_$(don[1])">
 106 
             <li$tmp><span class="wims_classes_direct_$(don[1])">
- 
 
 107 
             !reset tmp
96 
              !if $cls3 isitemof $(user_$(statut)_)
 108 
              !if $cls3 isitemof $(user_$(statut)_)
97 
                !if $statut=supervise
 109 
                !if $statut=supervise
98 
                  !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
 110 
                  !href module=adm/class/classes&type=authsupervisor&class=$cls3&auth_user=supervisor $(don[2])
99 
                !else
 111 
                !else
100 
                  !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])
 112 
                  !href module=adm/class/classes&type=authparticipant&class=$cls3&auth_user=$u_ $(don[2])