Subversion Repositories wimsdev

Rev

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

Rev 4150 Rev 5039
Line 1... Line 1...
1 
 
 1 
 
- 
 
 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
2 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
 4 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
3 
!set classcnt=!linecnt $classes
 5 
!set classcnt=!linecnt $classes
4 
!if $classcnt>0
 6 
!if $classcnt>0
5 
 <p>
 7 
 <p>
6 
 $(CL_Names[2]):<p>
 8 
 $(CL_Names[2]):<p>
7 
 !reset compt
 9 
 !reset compt
8 
 !for i=1 to $classcnt
 10 
 !for i=1 to $classcnt
9 
  !set l=!line $i of $classes
 11 
  !set l=!line $i of $classes
10 
  !distribute items $l into c_,s_,t_
 12 
  !distribute items $l into c_,s_,t_
11 
  <span class="wims_classes_direct_class">
 13 
  <span class="wims_classes_direct_class">
- 
 
 14 
  !if $c_ isitemof $user_supervise
- 
 
 15 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
- 
 
 16 
   !else
12 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 17 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
- 
 
 18 
   !endif
13 
</span>
 19 
  </span>
14 
  !if $compt=9
 20 
  !if $compt=9
15 
    !set compt=0
 21 
    !set compt=0
16 
    <p>
 22 
     <p class="emptyline"></p>
17 
  !else
 23 
  !else
18 
    !increase compt
 24 
    !increase compt
19 
  !endif
 25 
  !endif
20 
 !next i
 26 
 !next i
21 
!endif
 27 
!endif
22 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
 28 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
23 
!set progcnt=!linecnt $progs
 29 
!set progcnt=!linecnt $progs
- 
 
 30 
 
24 
!if $progcnt>0
 31 
!if $progcnt>0
25 
 <p>
 32 
 <p>
26 
 $(CL_Names[3]):<p>
 33 
 $(CL_Names[3]):<p>
27 
 !reset compt
 34 
 !reset compt
28 
 !for i=1 to $progcnt
 35 
 !for i=1 to $progcnt
29 
  !set l=!line $i of $progs
 36 
  !set l=!line $i of $progs
30 
  !distribute items $l into c_,s_,t_
 37 
  !distribute items $l into c_,s_,t_
31 
  <span class="wims_classes_direct_program">
 38 
  <span class="wims_classes_direct_program">
- 
 
 39 
  !if $c_ isitemof $user_supervise
- 
 
 40 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
- 
 
 41 
   !else
32 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 42 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
- 
 
 43 
   !endif
33 
  </span>
 44 
  </span>
34 
  !if $compt=9
 45 
  !if $compt=5
35 
    !set compt=0
 46 
    !set compt=0
36 
    <p>
 47 
     <p class="emptyline"></p>
37 
  !else
 48 
  !else
38 
    !increase compt
 49 
    !increase compt
39 
  !endif
 50 
  !endif
40 
 !next i
 51 
 !next i
41 
!endif
 52 
!endif
42 
 
 53 
 
43 
!if $classcnt+$progcnt<1
 54 
!if $classcnt+$progcnt<1
44 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
 55 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
45 
 !set coursecnt=!linecnt $courses
 56 
 !set coursecnt=!linecnt $courses
- 
 
 57 
 
46 
 !if $coursecnt>0
 58 
 !if $coursecnt>0
47 
  <p>
 59 
  <p>
48 
  $(CL_Names[4]):<p>
 60 
  $(CL_Names[4]):<p>
49 
  !reset compt
 61 
  !reset compt
50 
  !for i=1 to $coursecnt
 62 
  !for i=1 to $coursecnt
51 
   !set l=!line $i of $courses
 63 
   !set l=!line $i of $courses
52 
   !distribute items $l into c_,s_,t_
 64 
   !distribute items $l into c_,s_,t_
53 
   <span class="wims_classes_direct_course">
 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
54 
   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 69 
    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
- 
 
 70 
   !endif
55 
   </span>
 71 
   </span>
56 
   !if $compt=9
 72 
   !if $compt=5
57 
    !set compt=0
 73 
    !set compt=0
58 
    <p>
 74 
    <p class="emptyline"></p>
59 
   !else
 75 
   !else
60 
    !increase compt
 76 
    !increase compt
61 
   !endif
 77 
   !endif
62 
  !next i
 78 
  !next i
63 
 !endif
 79 
 !endif
Line 69... Line 85...
69 
  !reset compt
 85 
  !reset compt
70 
  !for i=1 to $coursecnt
 86 
  !for i=1 to $coursecnt
71 
   !set l=!line $i of $courses
 87 
   !set l=!line $i of $courses
72 
   !distribute items $l into c_,s_,t_
 88 
   !distribute items $l into c_,s_,t_
73 
   <span class="wims_classes_direct_course">
 89 
   <span class="wims_classes_direct_course">
- 
 
 90 
   !if $c_ isitemof $user_supervise
- 
 
 91 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
- 
 
 92 
   !else
74 
   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
 93 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
- 
 
 94 
   !endif
75 
   </span>
 95 
   </span>
76 
   !if $compt=9
 96 
   !if $compt=5
77 
    !set compt=0
 97 
    !set compt=0
78 
    <p>
 98 
     <p class="emptyline"></p>
79 
   !else
 99 
   !else
80 
    !increase compt
 100 
    !increase compt
81 
   !endif
 101 
   !endif
82 
  !next i
 102 
  !next i
83 
 !endif
 103 
 !endif