Subversion Repositories wimsdev

Rev

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

Rev 10852 Rev 10924
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
     !reset tmp
43
     !if $(don[1])=course
44
     !if $(don[1])=course
44
        !set tmp=$ class="inline"
45
        !set tmp=$ class="inline"
45
     !endif
46
     !endif
46
      <li$tmp><span class="wims_classes_direct_$(don[1])">
47
      <li$tmp><span class="wims_classes_direct_$(don[1])">
47
     !reset tmp
48
     !reset tmp
Line 68... Line 69...
68
      !set compsup2=!column 2 to -1 of $compsup2
69
      !set compsup2=!column 2 to -1 of $compsup2
69
      <ul class="wims_subclasses">
70
      <ul class="wims_subclasses">
70
      !for j2=1 to $col2cnt
71
      !for j2=1 to $col2cnt
71
        !set cls2=!nospace $cls1/$(col2[$j2])
72
        !set cls2=!nospace $cls1/$(col2[$j2])
72
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
73
        !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls2/.def
-
 
74
        !reset tmp
73
        !if $(don[1])=course
75
        !if $(don[1])=course
74
          !set tmp=$ class="inline"
76
          !set tmp=$ class="inline"
75
        !endif
77
        !endif
76
         <li$tmp><span class="wims_classes_direct_$(don[1])">
78
         <li$tmp><span class="wims_classes_direct_$(don[1])">
77
         !reset tmp
-
 
78
         !if $cls2 isitemof $(user_$(statut)_)
79
         !if $cls2 isitemof $(user_$(statut)_)
79
           !if $statut=supervise
80
           !if $statut=supervise
80
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
81
             !href module=adm/class/classes&type=authsupervisor&class=$cls2&auth_user=supervisor $(don[2])
81
           !else
82
           !else
82
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
83
             !href module=adm/class/classes&type=authparticipant&class=$cls2&auth_user=$u_ $(don[2])
Line 98... Line 99...
98
          <ul>
99
          <ul>
99
          !set compsup3=!column 2 to -1 of $compsup3
100
          !set compsup3=!column 2 to -1 of $compsup3
100
          !for j3=1 to $col3cnt
101
          !for j3=1 to $col3cnt
101
            !set cls3=!nospace $cls2/$(col3[$j3])
102
            !set cls3=!nospace $cls2/$(col3[$j3])
102
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
103
            !let don=!defof class_typename,class_description,class_supervisor in wimshome/log/classes/$cls3/.def
-
 
104
            !reset tmp
103
            !if $(don[1])=course
105
            !if $(don[1])=course
104
              !set tmp=$ class="inline"
106
              !set tmp=$ class="inline"
105
            !endif
107
            !endif
106
             <li$tmp><span class="wims_classes_direct_$(don[1])">
108
             <li$tmp><span class="wims_classes_direct_$(don[1])">
107
             !reset tmp
109
             !reset tmp