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

  !next

!endif

!if $wims_user=supervisor

  nam=sup

!else

  nam=part

!endif

!read adm/class/userdef classes,$wims_class,$wims_realuser

!set user_supervisable=!defof user_supervisable in $userdef

!if $user_supervisable=yes

  !set user_supervise=!defof user_supervise in $userdef

!endif

!if $wims_user=supervisor

  !set user_supervise=!append item $wims_class to $user_supervise

!endif

!set user_participate=!defof user_participate in $userdef

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

      !if $auth_method isitemof $auth_method_list

        directlist=!append item $c $user_auth_external to $directlist

      !else

        directlist=!append item $c $wims_user to $directlist

      !endif

    !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

directlist=!sort items $directlist

directcnt=!itemcnt $directlist

!if $directcnt>0

!!! should be commented

  current_pass=$pass

!endif