Subversion Repositories wimsdev

Rev

Rev 1429 | 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.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  11.   &nbsp;
  12.  !next i
  13. !endif
  14. !set progs=!record 0 of wimshome/log/classes/$wims_class/programs
  15. !set progcnt=!linecnt $progs
  16. !if $progcnt>0
  17.  <p>
  18.  $(CL_Names[3]):
  19.  !for i=1 to $progcnt
  20.   !set l=!line $i of $progs
  21.   !distribute items $l into c_,s_,t_
  22.   !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  23.   &nbsp;
  24.  !next i
  25. !endif
  26.  
  27. !if $classcnt+$progcnt<1
  28.  !set courses=!record 0 of wimshome/log/classes/$wims_class/courses
  29.  !set coursecnt=!linecnt $courses
  30.  !if $coursecnt>0
  31.   <p>
  32.   $(CL_Names[4]):
  33.   !for i=1 to $coursecnt
  34.    !set l=!line $i of $courses
  35.    !distribute items $l into c_,s_,t_
  36.    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  37.    &nbsp;
  38.   !next i
  39.  !endif
  40.  !set courses=!record 0 of wimshome/log/classes/$wims_class/icourses
  41.  !set coursecnt=!linecnt $courses
  42.  !if $coursecnt>0
  43.   <p>
  44.   $(CL_Names[5]):
  45.   !for i=1 to $coursecnt
  46.    !set l=!line $i of $courses
  47.    !distribute items $l into c_,s_,t_
  48.    !href module=adm/class/classes&type=authsupervisor&class=$wims_superclass/$c_ $t_
  49.    &nbsp;
  50.   !next i
  51.  !endif
  52. !endif
  53.  
  54. !if $class_typename=program
  55.  !set test=!defof class_defined in wimshome/log/classes/$wims_class/0/.def
  56.  !if $test=yes
  57.   <p>$CL_Test:
  58.   !href module=adm/class/classes&type=authsupervisor&class=$wims_class/0 $N_go
  59. &nbsp;
  60.   !href module=adm/class/config&job=neighbor&job2=import&nei=$wims_class/0 $N_import
  61.  !endif
  62. !endif
  63.