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