Subversion Repositories wimsdev

Rev

Rev 12159 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 12159 Rev 13211
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 
  !if $c_ isitemof $auth_
- 
 
 23 
    !! need that in the case of an interclasse (super/level/program/course)
- 
 
 24 
    !let script_reply=yes
- 
 
 25 
    !exit
- 
 
 26 
  !endif
22 
  !let c_=!replace internal / by , in $c_
 27 
  !let c_=!replace internal / by , in $c_
23 
  !let c_=!item 1 to 3 of $c_
 28 
  !let c_=!item 1 to 3 of $c_
24 
  !let c_=!replace internal , by / in $c_
 29 
  !let c_=!replace internal , by / in $c_
25 
  !let c_=!nospace $c_
 30 
  !let c_=!nospace $c_
26 
  !if $c_ isitemof $auth_
 31 
  !if $c_ isitemof $auth_