Subversion Repositories wimsdev

Rev

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

Rev 7679 Rev 10194
Line 1... Line 1...
1 
 
 1 
 
2 
!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
 2 
!set wims_realuser=!defof wims_realuser in wimshome/$wims_sesdir/var.stat
3 
!set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
 3 
!set user_supervise=!defof user_supervise in wimshome/log/classes/$wims_superclass/.users/$wims_realuser
4 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
 4 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
5 
!set classcnt=!linecnt $classes
 5 
!set classcnt=!linecnt $classes
- 
 
 6 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
- 
 
 7 
!set progcnt=!linecnt $progs
- 
 
 8 
!if $classcnt+$progcnt<1
- 
 
 9 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
- 
 
 10 
 !set coursecnt=!linecnt $courses
- 
 
 11 
!endif
- 
 
 12 
!set icourses=!record 0 of wimshome/log/classes/$wims_class/icourses
- 
 
 13 
!set icoursecnt=!linecnt $icourses
- 
 
 14 
!if $[$classcnt+$progcnt+$coursecnt+$icourses]=0
- 
 
 15 
  !goto nosubclass
- 
 
 16 
!endif
- 
 
 17 
 <ul class="wims_nopuce">
6 
!if $classcnt>0
 18 
!if $classcnt>0
7 
 <p>
 19 
 <li>
8 
 $(CL_Names[2]):</p>
 20 
 $(CL_Names[2]):
9 
 !reset compt
 21 
  <ul class="inline">
10 
 !for i=1 to $classcnt
 22 
 !for i=1 to $classcnt
11 
  !set l=!line $i of $classes
 23 
  !set l=!line $i of $classes
12 
  !distribute items $l into c_,s_,t_
 24 
  !distribute items $l into c_,s_,t_
- 
 
 25 
  <li>
13 
  <span class="wims_classes_direct_class">
 26 
  <div class="wims_classes_direct_class">
14 
  !if $c_ isitemof $user_supervise
 27 
  !if $c_ isitemof $user_supervise
15 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
 28 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
16 
   !else
 29 
   !else
17 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 30 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
18 
   !endif
 31 
   !endif
19 
  </span>
 32 
  </div>
20 
  !if $compt=9
 - 
 
21 
    !set compt=0
 - 
 
22 
     <p class="emptyline"></p>
 - 
 
23 
  !else
 33 
  </li>
24 
    !increase compt
 - 
 
25 
  !endif
 - 
 
26 
 !next i
 34 
 !next i
- 
 
 35 
 </ul></li>
27 
!endif
 36 
!endif
28 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
 - 
 
29 
!set progcnt=!linecnt $progs
 - 
 
30 
 
 - 
 
31 
!if $progcnt>0
 37 
!if $progcnt>0
32 
 <p>
 38 
  <li>
33 
 $(CL_Names[3]):</p>
 39 
 $(CL_Names[3]):
34 
 !reset compt
 40 
 <ul class="inline">
35 
 !for i=1 to $progcnt
 41 
 !for i=1 to $progcnt
36 
  !set l=!line $i of $progs
 42 
  !set l=!line $i of $progs
37 
  !distribute items $l into c_,s_,t_
 43 
  !distribute items $l into c_,s_,t_
- 
 
 44 
  <li>
38 
  <span class="wims_classes_direct_program">
 45 
  <div class="wims_classes_direct_program">
39 
  !if $c_ isitemof $user_supervise
 46 
  !if $c_ isitemof $user_supervise
40 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
 47 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
41 
   !else
 48 
   !else
42 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 49 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
43 
   !endif
 50 
   !endif
44 
  </span>
 51 
  </div>
45 
  !if $compt=5
 - 
 
46 
    !set compt=0
 - 
 
47 
     <p class="emptyline"></p>
 - 
 
48 
  !else
 52 
  </li>
49 
    !increase compt
 - 
 
50 
  !endif
 - 
 
51 
 !next i
 53 
 !next i
- 
 
 54 
 </ul></li>
52 
!endif
 55 
!endif
53 
 
 56 
 
54 
!if $classcnt+$progcnt<1
 57 
!if $classcnt+$progcnt<1
55 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
 - 
 
56 
 !set coursecnt=!linecnt $courses
 - 
 
57 
 
 - 
 
58 
 !if $coursecnt>0
 - 
 
59 
  <p>
 - 
 
60 
  $(CL_Names[4]):</p>
 - 
 
61 
  !reset compt
 - 
 
62 
  !for i=1 to $coursecnt
 - 
 
63 
   !set l=!line $i of $courses
 - 
 
64 
   !distribute items $l into c_,s_,t_
 - 
 
65 
   <span class="wims_classes_direct_course">
 - 
 
66 
   !if $c_ isitemof $user_supervise
 - 
 
67 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
 - 
 
68 
   !else
 - 
 
69 
    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 - 
 
70 
   !endif
 - 
 
71 
   </span>
 - 
 
72 
   !if $compt=5
 - 
 
73 
    !set compt=0
 - 
 
74 
    <p class="emptyline"></p>
 - 
 
75 
   !else
 - 
 
76 
    !increase compt
 - 
 
77 
   !endif
 - 
 
78 
  !next i
 - 
 
79 
 !endif
 - 
 
80 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/icourses
 - 
 
81 
 !set coursecnt=!linecnt $courses
 - 
 
82 
 !if $coursecnt>0
 58 
 !if $coursecnt>0
83 
  <p>
 59 
  <li>
84 
  $(CL_Names[5]):</p>
 60 
  $(CL_Names[4]):
85 
  !reset compt
 61 
  <ul class="inline">
86 
  !for i=1 to $coursecnt
 62 
  !for i=1 to $coursecnt
87 
   !set l=!line $i of $courses
 63 
   !set l=!line $i of $courses
88 
   !distribute items $l into c_,s_,t_
 64 
   !distribute items $l into c_,s_,t_
- 
 
 65 
   <li>
89 
   <span class="wims_classes_direct_course">
 66 
   <div class="wims_classes_direct_course">
90 
   !if $c_ isitemof $user_supervise
 67 
   !if $c_ isitemof $user_supervise
91 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
 68 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
92 
   !else
 69 
   !else
- 
 
 70 
    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
- 
 
 71 
   !endif
- 
 
 72 
   </div>
- 
 
 73 
      </li>
- 
 
 74 
  !next i
- 
 
 75 
  </ul></li>
- 
 
 76 
 !endif
- 
 
 77 
 !if $icoursecnt>0
- 
 
 78 
  <li>
- 
 
 79 
  $(CL_Names[5]):
- 
 
 80 
  <ul class="inline">
- 
 
 81 
  !for i=1 to $icoursecnt
- 
 
 82 
   !set l=!line $i of $icourses
- 
 
 83 
   !distribute items $l into c_,s_,t_
- 
 
 84 
   <li>
- 
 
 85 
   <div class="wims_classes_direct_course">
- 
 
 86 
   !if $c_ isitemof $user_supervise
- 
 
 87 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
- 
 
 88 
   !else
93 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 89 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
94 
   !endif
 90 
   !endif
95 
   </span>
 91 
   </div>
96 
   !if $compt=5
 - 
 
97 
    !set compt=0
 - 
 
98 
     <p class="emptyline"></p>
 - 
 
99 
   !else
 92 
   </li>
100 
    !increase compt
 - 
 
101 
   !endif
 - 
 
102 
  !next i
 93 
  !next i
103 
 !endif
 94 
  </ul></li>
104 
!endif
 95 
!endif
105 
 
 96 
</ul>
- 
 
 97 
:nosubclass
106 
!if $class_typename=program
 98 
!if $class_typename=program
107 
 !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
 99 
 !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
108 
 !if $test=yes
 100 
 !if $test=yes
109 
  <div>
 101 
  <div>
110 
  !set wims_ref_class=wims_button
 102 
  !set wims_ref_class=wims_button