Subversion Repositories wimsdev

Rev

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