1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
# 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
|
