Subversion Repositories wimsdev

Rev

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

  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]):<p>
  7.  !reset compt
  8.  !for i=1 to $classcnt
  9.   !set l=!line $i of $classes
  10.   !distribute items $l into c_,s_,t_
  11.   <span class="wims_classes_direct_class">
  12.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  13. </span>
  14.   !if $compt=9
  15.     !set compt=0
  16.     <p>
  17.   !else
  18.     !increase compt
  19.   !endif
  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>
  26.  $(CL_Names[3]):<p>
  27.  !reset compt
  28.  !for i=1 to $progcnt
  29.   !set l=!line $i of $progs
  30.   !distribute items $l into c_,s_,t_
  31.   <span class="wims_classes_direct_program">
  32.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  33.   </span>
  34.   !if $compt=9
  35.     !set compt=0
  36.     <p>
  37.   !else
  38.     !increase compt
  39.   !endif
  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>
  48.   $(CL_Names[4]):<p>
  49.   !reset compt
  50.   !for i=1 to $coursecnt
  51.    !set l=!line $i of $courses
  52.    !distribute items $l into c_,s_,t_
  53.    <span class="wims_classes_direct_course">
  54.    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  55.    </span>
  56.    !if $compt=9
  57.     !set compt=0
  58.     <p>
  59.    !else
  60.     !increase compt
  61.    !endif
  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>
  68.   $(CL_Names[5]):<p>
  69.   !reset compt
  70.   !for i=1 to $coursecnt
  71.    !set l=!line $i of $courses
  72.    !distribute items $l into c_,s_,t_
  73.    <span class="wims_classes_direct_course">
  74.    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  75.    </span>
  76.    !if $compt=9
  77.     !set compt=0
  78.     <p>
  79.    !else
  80.     !increase compt
  81.    !endif
  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
  89.   <p>
  90.   !set wims_ref_class=wims_button
  91.   !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
  92.   &nbsp;
  93. !set wims_ref_class=wims_button
  94.   !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $wims_name_import
  95.   ($CL_Test)
  96.   !set wims_menu_items=!append line testgo,1,module=adm/class/classes&type=authsupervisor&class=$wims_class/0 \
  97.   import,1,adm/class/config&job=neighbor&job2=import&nei=$wims_class/0\
  98.   to $wims_menu_items
  99.  !endif
  100. !endif
  101.