Subversion Repositories wimsdev

Rev

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

Rev 12411 Rev 16702
Line 29... Line 29...
29 
  dirs=!exec translator $selw
 29 
  dirs=!exec translator $selw
30 
  dirs=!words2items $dirs
 30 
  dirs=!words2items $dirs
31 
  dirs=!listuniq $dirs
 31 
  dirs=!listuniq $dirs
32 
  dirs=!items2words $dirs
 32 
  dirs=!items2words $dirs
33 
  !distribute words y y y y y y y y y y y y y y y y y y y y y y y into $sel
 33 
  !distribute words y y y y y y y y y y y y y y y y y y y y y y y into $sel
- 
 
 34 
  !if / isin $wims_class and $user=y and $class_type
- 
 
 35 
    !! cleaning user access in case of portal or  groupement
- 
 
 36 
    nb=!recordcnt wimshome/log/classes/$wims_class/.userlist
- 
 
 37 
    !for k=1 to $nb
- 
 
 38 
      dt=!record $k of wimshome/log/classes/$wims_class/.userlist
- 
 
 39 
      u=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$(dt[3])
- 
 
 40 
      u=!listcomplement $wims_class in $u
- 
 
 41 
      !setdef !set user_participate=$u in wimshome/log/classes/$wims_superclass/.users/$(dt[3])
- 
 
 42 
    !next k
- 
 
 43 
  !endif
34 
  !if $dirs!=$empty
 44 
  !if $dirs!=$empty
35 
    !mexec scripts/clean.sh
 45 
    !mexec scripts/clean.sh
36 
    wims_class_log=Clean $sel by $wims_realuser
 46 
    wims_class_log=Clean $sel by $wims_realuser
37 
  !endif
 47 
  !endif
38 
  !read scripts/reccnt.proc cl $cls
 48 
  !read scripts/reccnt.proc cl $cls