Subversion Repositories wimsdev

Rev

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

Rev 861 Rev 876
Line 17... Line 17...
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_
- 
 
 23 
 !let c_=!item 1 to 3 of $c_
- 
 
 24 
 !let c_=!replace internal , by / in $c_
- 
 
 25 
 !let c_=!nospace $c_
22 
 !if $c_ isitemof $auth_
 26 
 !if $c_ isitemof $auth_
23 
  !let script_reply=yes
 27 
  !let script_reply=yes
24 
 !endif
 28 
 !endif
25 
!endif
 29 
!endif
26 
 
 30