Subversion Repositories wimsdev

Rev

Rev 876 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 876 Rev 12159
Line 5... Line 5...
5 
!let d_=wimshome/log/classes
 5 
!let d_=wimshome/log/classes
6 
!default c_=$wims_class
 6 
!default c_=$wims_class
7 
!let script_reply=no
 7 
!let script_reply=no
8 
 
 8 
 
9 
!if $u_=supervisor
 9 
!if $u_=supervisor
10 
 !let script_reply=yes
 10 
  !let script_reply=yes
11 
 !exit
 11 
  !exit
12 
!else
 12 
!else
13 
 f_=.users/$u_
 13 
  f_=.users/$u_
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
scl_=!defof class_superclass in $d_/$c_/.def
 16 
scl_=!defof class_superclass in $d_/$c_/.def
17 
scl_=!item -1 of $scl_
 17 
scl_=!item -1 of $scl_
18 
!if $scl_=$empty
 18 
!if $scl_=$empty
19 
 !let script_reply=!defof user_exists in $d_/$c_/$f_
 19 
  !let script_reply=!defof user_exists in $d_/$c_/$f_
20 
!else
 20 
!else
21 
 !let auth_=!defof user_participate in $d_/$scl_/$f_
 21 
  !let auth_=!defof user_participate in $d_/$scl_/$f_
22 
 !let c_=!replace internal / by , in $c_
 22 
  !let c_=!replace internal / by , in $c_
23 
 !let c_=!item 1 to 3 of $c_
 23 
  !let c_=!item 1 to 3 of $c_
24 
 !let c_=!replace internal , by / in $c_
 24 
  !let c_=!replace internal , by / in $c_
25 
 !let c_=!nospace $c_
 25 
  !let c_=!nospace $c_
26 
 !if $c_ isitemof $auth_
 26 
  !if $c_ isitemof $auth_
27 
  !let script_reply=yes
 27 
    !let script_reply=yes
28 
 !endif
 28 
  !endif
29 
!endif
 29 
!endif
30 
 
 - 
 
31 
 
 30