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