Subversion Repositories wimsdev

common=userlist,oef,doc

!if $class_type=4

  !bound job2 within structure,teacherlist,$common default $

!else

  !if $class_type=2

    !bound job2 within teacherlist,$common default $

  !else

    !bound job2 within $common default $

  !endif

!endif

!if $job2=$empty

  job=list

  !changeto $job.proc

!endif

!if $job2=structure

  !read adm/gateway/mkindex

  lcnt=!linecnt $ldata

  ccnt=!linecnt $cdata

  pcnt=!linecnt $pdata

  icnt=!linecnt $idata

  result=$lcnt levels, $ccnt classes, $pcnt programs, $icnt interlevel courses found.

  !exit

!endif

!if $job2=teacherlist

  !read adm/gateway/mkteacherlist

  result=!record 0 of wimshome/log/classes/$wims_class/.teacherlist

  result=!linecnt $result

  result=$result teachers found in $wims_class.

  !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

         !!FIXME I am not sure it is useful !read adm/gateway/mkteacherlist already does it

          !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_

      !!FIXME I am not sure it is useful !read adm/gateway/mkteacherlist already does it

      !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

  !exit

!endif

!if $job2=userlist

  !read adm/class/mkuserlist

  result=!recordcnt wimshome/log/classes/$wims_class/.userlist

  result=$result participants found in $wims_class.

  !if $wims_superclass!=$wims_class

    !read adm/class/stat

    !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/class/mkuserlist $wims_superclass/$cl_

          Result=!recordcnt wimshome/log/classes/$wims_superclass/$cl_/.userlist

          result=$result \

$Result participants found in $cl_.

        !next

      !next

      !read adm/class/stat

      !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/class/mkuserlist $cl_

        Result=!recordcnt wimshome/log/classes/$cl_/.userlist

        result=$result \

$Result participants found in $cl_.

      !next

    !endif

  !endif

  !read adm/class/stat

  !exit

!endif

!if $job2=oef

  result=!sh cd $wims_home/log/classes/$wims_class\

  src2def oef

  !exit

!endif

!if $job2=doc

  Docdir=log/classes/$wims_class/doc

  docdir=wimshome/$Docdir

  !read adm/docindex.proc

  result=!recordcnt $docdir/.index

  result=$result documents found.

  !exit

!endif