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
list1=
list2=
prompt=
cnt1=0
cnt2=0

!if $teachercnt<=0
 !exit
!endif

!if $more!=$empty
 check=!defof user_supervisable in $classdir1/.users/$more
 !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=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
!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