Subversion Repositories wimsdev

!if $job=first

  this=$wims_superclass

!else

  icourse=$course

  this=$wims_superclass/$($job)

!endif

teacherlist=!record 0 of $classdir1/.teacherlist

teachercnt=!linecnt $teacherlist

!reset list1 list2 prompt

cnt1=0

cnt2=0

!if $teachercnt<=0

  !exit

!endif

!if $more!=$empty

  !! ??? Why ???

  !if $wims_class/ notin $this/

    progtest=!defof sharing_exam in wimshome/log/classes/$this/neighbors

    !if $wims_class!=$progtest

      check=no

    !endif

  !endif

  !if $check!=no

    !for more_ in $more

      check_=!defof user_supervisable in $classdir1/.users/$more_

      !if $check_=yes

        supervise=!defof user_supervise in $classdir1/.users/$more_

        !if $actype=del

         sup2=!listcomplement $this in $supervise

        !endif

        !if $actype=add

          sup2=!listunion $supervise and $this

        !endif

        !if $sup2!=$supervise

          !setdef !set user_supervise=$sup2 in $classdir1/.users/$more_

        !endif

      !endif

    !next

    !read adm/gateway/mkteacherlist

    !reset more

  !endif

!endif

main=!defof class_Supervisor in wimshome/log/classes/$this/.def

!for i=1 to $teachercnt

  l=!line $i of $teacherlist

  !distribute items $l into last,first,l

  !if $l!=$main

    supervise=!defof user_supervise in $classdir1/.users/$l

    !if $this isitemof $supervise

      list1=!append item $i to $list1

    !else

      list2=!append item $l to $list2

      prompt=!append item $first $last ($l) to $prompt

    !endif

  !endif

!next i

cnt1=!itemcnt $list1

cnt2=!itemcnt $list2