Subversion Repositories wimsdev

Rev

Rev 5843 | Rev 10194 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
33 reyssat 1 
 
5039 bpr 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
33 reyssat 4 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
5 
!set classcnt=!linecnt $classes
6 
!if $classcnt>0
7 
 <p>
5843 bpr 8 
 $(CL_Names[2]):</p>
1850 bpr 9 
 !reset compt
33 reyssat 10 
 !for i=1 to $classcnt
11 
  !set l=!line $i of $classes
12 
  !distribute items $l into c_,s_,t_
1429 bpr 13 
  <span class="wims_classes_direct_class">
5039 bpr 14 
  !if $c_ isitemof $user_supervise
15 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
16 
   !else
17 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
18 
   !endif
19 
  </span>
1850 bpr 20 
  !if $compt=9
21 
    !set compt=0
5039 bpr 22 
     <p class="emptyline"></p>
1850 bpr 23 
  !else
24 
    !increase compt
25 
  !endif
33 reyssat 26 
 !next i
27 
!endif
28 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
29 
!set progcnt=!linecnt $progs
5039 bpr 30 
 
33 reyssat 31 
!if $progcnt>0
32 
 <p>
5843 bpr 33 
 $(CL_Names[3]):</p>
1850 bpr 34 
 !reset compt
33 reyssat 35 
 !for i=1 to $progcnt
36 
  !set l=!line $i of $progs
37 
  !distribute items $l into c_,s_,t_
1429 bpr 38 
  <span class="wims_classes_direct_program">
5039 bpr 39 
  !if $c_ isitemof $user_supervise
40 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
41 
   !else
42 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
43 
   !endif
1429 bpr 44 
  </span>
5039 bpr 45 
  !if $compt=5
1850 bpr 46 
    !set compt=0
5039 bpr 47 
     <p class="emptyline"></p>
1850 bpr 48 
  !else
49 
    !increase compt
50 
  !endif
33 reyssat 51 
 !next i
52 
!endif
53 
 
54 
!if $classcnt+$progcnt<1
55 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
56 
 !set coursecnt=!linecnt $courses
7679 bpr 57 
 
33 reyssat 58 
 !if $coursecnt>0
59 
  <p>
5843 bpr 60 
  $(CL_Names[4]):</p>
1850 bpr 61 
  !reset compt
33 reyssat 62 
  !for i=1 to $coursecnt
63 
   !set l=!line $i of $courses
64 
   !distribute items $l into c_,s_,t_
1429 bpr 65 
   <span class="wims_classes_direct_course">
5039 bpr 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
1429 bpr 71 
   </span>
5039 bpr 72 
   !if $compt=5
1850 bpr 73 
    !set compt=0
5039 bpr 74 
    <p class="emptyline"></p>
1850 bpr 75 
   !else
76 
    !increase compt
77 
   !endif
33 reyssat 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
83 
  <p>
5843 bpr 84 
  $(CL_Names[5]):</p>
1850 bpr 85 
  !reset compt
33 reyssat 86 
  !for i=1 to $coursecnt
87 
   !set l=!line $i of $courses
88 
   !distribute items $l into c_,s_,t_
1429 bpr 89 
   <span class="wims_classes_direct_course">
5039 bpr 90 
   !if $c_ isitemof $user_supervise
91 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_&auth_user=supervisor $t_
92 
   !else
93 
     !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
94 
   !endif
1429 bpr 95 
   </span>
5039 bpr 96 
   !if $compt=5
1850 bpr 97 
    !set compt=0
5039 bpr 98 
     <p class="emptyline"></p>
1850 bpr 99 
   !else
100 
    !increase compt
101 
   !endif
33 reyssat 102 
  !next i
103 
 !endif
104 
!endif
105 
 
106 
!if $class_typename=program
107 
 !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
108 
 !if $test=yes
5843 bpr 109 
  <div>
4150 bpr 110 
  !set wims_ref_class=wims_button
33 reyssat 111 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
4150 bpr 112 
  &nbsp;
113 
!set wims_ref_class=wims_button
3960 bpr 114 
  !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $wims_name_import
4150 bpr 115 
  ($CL_Test)
116 
  !set wims_menu_items=!append line testgo,1,module=adm/class/classes&type=authsupervisor&class=$wims_class/0 \
1302 bpr 117 
  import,1,adm/class/config&job=neighbor&job2=import&nei=$wims_class/0\
4150 bpr 118 
  to $wims_menu_items
5843 bpr 119 
  </div>
33 reyssat 120 
 !endif
121 
!endif