Subversion Repositories wimsdev

examtest=!sh cat $wims_home/$wims_sesdir/examreg.* 2>/dev/null
!if $examtest!=$empty
 et=!words2items $examtest
 !for i in $et
  !if $i>0
   error=in_exam
   type=none
   !exit
  !endif
!endif

!if $wims_user=supervisor
 nam=sup
!else
 nam=part
!endif
!read adm/class/userdef classes,$wims_class,$wims_user
neib=!defof n_$nam in wimshome/log/classes/$wims_class/neighbors
pass=!defof user_password in $userdef
pass=!word 1 of $pass

directlist=
!if $pass!=$empty
 !for c in $neib
  t=!defof n_$nam in wimshome/log/classes/$c/neighbors
  !read adm/class/userdef classes,$c,$wims_user
  np=!defof user_password in $userdef
  np=!word 1 of $np
  np=!passcrypt $np
  passc=!passcrypt $pass
  !if $wims_class isitemof $t and $np=$passc
   directlist=!append item $c $wims_user to $directlist
  !endif
 !next c
!endif

directlist=!append item $directlist to $wims_otherclass
directlist=!listuniq $directlist
directlist=!listcomplement $wims_class $wims_user in $directlist
directlist=!nonempty items $directlist
directcnt=!itemcnt $directlist
!if $directcnt>0
 current_pass=$pass
!endif