Subversion Repositories wimsdev

Rev

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

Rev 15324 Rev 17386
Line 33... Line 33...
33 
  !distribute items $user into u_,c_,p_
 33 
  !distribute items $user into u_,c_,p_
34 
  c_=!text select $char_alnum/ in $c_
 34 
  c_=!text select $char_alnum/ in $c_
35 
  u_=!translate internal . to @ in $u_
 35 
  u_=!translate internal . to @ in $u_
36 
  u_=!text select $char_login in $u_
 36 
  u_=!text select $char_login in $u_
37 
  p_=!text select $char_passwd in $p_
 37 
  p_=!text select $char_passwd in $p_
- 
 
 38 
  test=!filexists wimshome/log/classes/$c_/.def
38 
  !if $c_=$empty
 39 
  !if $c_=$empty or $test!=yes
39 
    !exit
 40 
    !exit
- 
 
 41 
  !endif
- 
 
 42 
  !! ---------- process manage of anonymous connexion to example class
- 
 
 43 
  !if / notin $c_ and $c_<=9999 and anonymous isin $u_
- 
 
 44 
    !readproc adm/class/anonymous.proc $c_,$u_
- 
 
 45 
    u_=$output_user
40 
  !endif
 46 
  !endif
41 
  !if $u_=supervisor
 47 
  !if $u_=supervisor
42 
    ut=supervisor
 48 
    ut=supervisor
43 
  !else
 49 
  !else
44 
    ut=participant
 50 
    ut=participant