Subversion Repositories wimsdev

# test if the user "user" is registered in the class "class".

# Calling parameter: class,user.

!distribute items $wims_read_parm into c_,u_

!let d_=wimshome/log/classes

!default c_=$wims_class

!let script_reply=no

!if $u_=supervisor

  !let script_reply=yes

  !exit

!else

  f_=.users/$u_

!endif

scl_=!defof class_superclass in $d_/$c_/.def

scl_=!item -1 of $scl_

!if $scl_=$empty

  !let script_reply=!defof user_exists in $d_/$c_/$f_

!else

  !let auth_=!defof user_participate in $d_/$scl_/$f_

  !if $c_ isitemof $auth_

    !! need that in the case of an interclasse (super/level/program/course)

    !let script_reply=yes

    !exit

  !endif

  !let c_=!replace internal / by , in $c_

  !let c_=!item 1 to 3 of $c_

  !let c_=!replace internal , by / in $c_

  !let c_=!nospace $c_

  !if $c_ isitemof $auth_

    !let script_reply=yes

  !endif

!endif