Subversion Repositories wimsdev

 !if $wims_superclass!=$wims_class

  !exit

 !else

  !if $class_type=4

   !for j_ in classes,courses,icourses

    list=!record 0 of wimshome/log/classes/$wims_superclass/$j_

    list=!column 1 of $list

    !for cl_ in $list

     !read adm/gateway/mkteacherlist $wims_superclass/$cl_

     Result=!record 0 of wimshome/log/classes/$wims_superclass/$cl_/.teacherlist

     Result=!linecnt $Result

     result=$result \

$Result teachers found in $cl_.

    !next

   !next

   !exit

  !else

   classcnt=!recordcnt wimshome/log/classes/$wims_superclass/.subclasses

   !for c_=1 to $classcnt

    cl_=!record $c_ of wimshome/log/classes/$wims_superclass/.subclasses

    cl_=!item 1 of $cl_

    !read adm/gateway/mkteacherlist $cl_

     Result=!record 0 of wimshome/log/classes/$cl_/.teacherlist

     Result=!linecnt $Result

     result=$result \

$Result teachers found in $cl_.

   !next

  !endif

 !endif