Subversion Repositories wimsdev

Rev

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

Rev Author Line No. Line
33 reyssat 1 
 
2 
!set classes=!record 0 of wimshome/log/classes/$wims_class/classes
3 
!set classcnt=!linecnt $classes
4 
!if $classcnt>0
5 
 <p>
6 
 $(CL_Names[2]):
7 
 !for i=1 to $classcnt
8 
  !set l=!line $i of $classes
9 
  !distribute items $l into c_,s_,t_
1429 bpr 10 
  <span class="wims_classes_direct_class">
33 reyssat 11 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
1429 bpr 12 
</span>
33 reyssat 13 
 !next i
14 
!endif
15 
!set progs=!record 0 of wimshome/log/classes/$wims_class/programs
16 
!set progcnt=!linecnt $progs
17 
!if $progcnt>0
18 
 <p>
19 
 $(CL_Names[3]):
20 
 !for i=1 to $progcnt
21 
  !set l=!line $i of $progs
22 
  !distribute items $l into c_,s_,t_
1429 bpr 23 
  <span class="wims_classes_direct_program">
33 reyssat 24 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
1429 bpr 25 
  </span>
33 reyssat 26 
 !next i
27 
!endif
28 
 
29 
!if $classcnt+$progcnt<1
30 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
31 
 !set coursecnt=!linecnt $courses
32 
 !if $coursecnt>0
33 
  <p>
34 
  $(CL_Names[4]):
35 
  !for i=1 to $coursecnt
36 
   !set l=!line $i of $courses
37 
   !distribute items $l into c_,s_,t_
1429 bpr 38 
   <span class="wims_classes_direct_course">
33 reyssat 39 
   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
1429 bpr 40 
   </span>
33 reyssat 41 
  !next i
42 
 !endif
43 
 !set courses=!record 0 of wimshome/log/classes/$wims_class/icourses
44 
 !set coursecnt=!linecnt $courses
45 
 !if $coursecnt>0
46 
  <p>
47 
  $(CL_Names[5]):
48 
  !for i=1 to $coursecnt
49 
   !set l=!line $i of $courses
50 
   !distribute items $l into c_,s_,t_
1429 bpr 51 
   <span class="wims_classes_direct_course">
33 reyssat 52 
   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
1429 bpr 53 
   </span>
33 reyssat 54 
  !next i
55 
 !endif
56 
!endif
57 
 
58 
!if $class_typename=program
59 
 !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
60 
 !if $test=yes
61 
  <p>$CL_Test:
1429 bpr 62 
  <span class="wims_classes_direct_program">
33 reyssat 63 
  !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
1429 bpr 64 
</span>
33 reyssat 65 
  !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $N_import
1302 bpr 66 
  !set wims_tail_menu=!append line testgo,1,module=adm/class/classes&type=authsupervisor&class=$wims_class/0 \
67 
  import,1,adm/class/config&job=neighbor&job2=import&nei=$wims_class/0\
68 
  to $wims_tail_menu
33 reyssat 69 
 !endif
70 
!endif