Subversion Repositories wimsdev

Rev

Rev 1302 | Rev 3960 | 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]):
  7.  !for i=1 to $classcnt
  8.   !set l=!line $i of $classes
  9.   !distribute items $l into c_,s_,t_
  10.   <span class="wims_classes_direct_class">
  11.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  12. </span>
  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_
  23.   <span class="wims_classes_direct_program">
  24.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  25.   </span>
  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_
  38.    <span class="wims_classes_direct_course">
  39.    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  40.    </span>
  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_
  51.    <span class="wims_classes_direct_course">
  52.    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  53.    </span>
  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:
  62.   <span class="wims_classes_direct_program">
  63.   !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
  64. </span>
  65.   !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $N_import
  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
  69.  !endif
  70. !endif
  71.