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])