Subversion Repositories wimsdev

Rev

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

Rev 16013 Rev 16091
Line 31... Line 31...
31 
selw=!items2words $sel
 31 
selw=!items2words $sel
32 
dictionary=$module_dir/arch/recdep
 32 
dictionary=$module_dir/arch/recdep
33 
dep=!exec translator $selw
 33 
dep=!exec translator $selw
34 
copy=!words2items $selw $dep
 34 
copy=!words2items $selw $dep
35 
copy=!listuniq $copy
 35 
copy=!listuniq $copy
- 
 
 36 
copy=!listcomplement $forbiddenlistdep in $copy
36 
 
 37 
 
37 
!! ----------------------------- restore of user when replace or merge
 38 
!! ----------------------------- restore of user when replace or merge
38 
!if user isitemof $copy
 39 
!if user isitemof $copy
39 
  n=!recordcnt wimshome/$wims_sesdir/upload/class/.userlist
 40 
  n=!recordcnt wimshome/$wims_sesdir/upload/class/.userlist
40 
  !read adm/class/userremain.proc
 41 
  !read adm/class/userremain.proc