Subversion Repositories wimsdev

Rev

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

Rev 16702 Rev 16703
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
34
  !if / isin $wims_class and $user=y and $class_type=1
35
    !! cleaning user access in case of portal or  groupement
35
    !! cleaning user access in case of portal or  groupement
36
    nb=!recordcnt wimshome/log/classes/$wims_class/.userlist
36
    nb=!recordcnt wimshome/log/classes/$wims_class/.userlist
37
    !for k=1 to $nb
37
    !for k=1 to $nb
38
      dt=!record $k of wimshome/log/classes/$wims_class/.userlist
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])
39
      u=!defof user_participate in wimshome/log/classes/$wims_superclass/.users/$(dt[3])